Sub in_1() Dim i As Integer i = 190 For i = 190 To 392 Step 0 ThisWorkbook.Sheets(39).Cells(4, 17) = ThisWorkbook.Sheets(13).Cells(i, 1) ThisWorkbook.Sheets(39).PrintOut preview = False i = i + 1 Next End Sub