Macro/VBA suggestion needed

[Flora2021]

Hello, I have a spreadsheet (sheet1)that we need to print for approximately 90 employees. On this sheet there is a name, 3 different department fields, and a date range field.
I have another sheet (Sheet2) that lists all of this data in separate columns. I would like to be able to copy and paste each of the columns into the fields on sheet one and then print and repeat. I know I can create a macro to do this function, but I don't want to repeat it each time for 90 people. Is there a way to make it look at next row and repeat the steps?

 

[Puertorekinsam]

Just a slight modification to @Puertorekinsam's Post #7 should get you there:

Sub fill_and_print()
    Dim i As Long, j As Long
    i = 2
    Do Until Sheet2.Cells(i, 1) = ""
        For j = 1 To 5
            Sheet1.Cells(j + 1, 2) = Sheet2.Cells(i, j)
        Next
       
        Sheet1.PrintOut
        i = i + 1
    Loop
End Sub

the merged cells is a problem, the training data is dropping in column C not B like the rest. So that's why I cut the for loop down to 4 and doubled the copy over line (just shifted one to the right)

Sub fill_and_print()
    Dim i As Long, j As Long
    i = 2
    Do Until Sheet2.Cells(i, 1) = ""
        For j = 1 To 4
            Sheet1.Cells(j + 1, 2) = Sheet2.Cells(i, j)
        Next
            Sheet1.Cells(j + 1, 2+1) = Sheet2.Cells(i, j)
       
        Sheet1.PrintOut
        i = i + 1
    Loop
End Sub

 

[Alex Blakenburg]

Good spot, I hadn't noticed that training was 1 column over from the others.