How to Move to Next Row, start over, unless blank

[AlpineB]

Hi,

I've written a macro to take an employee database Sheets("CEP Program"); copy a row representing a single employee & their information to a source sheets("Source Data") and then use the values in Source Data to fill a form in Sheets("Verification Sheet"), and print the Verification sheet form. Now I need it to repeat for each employee AKA each row, and stop after the last row. I've tried to cobble together how to make this happen, but I'm not making much progress. Can you help me edit this code?


Sub CEP_VerificationFillPrint()
'
' CEP_VerificationFillPrint Macro
'
' Keyboard Shortcut: Ctrl+y
For Each Row In ActiveSheet
ActiveWindow.SmallScroll Down:=-18
EntireRow.Select
Selection.Copy
Sheets("Source Data").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Verification Sheet").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("CEP PROGRAM").Select
Next Row

End Sub

 

[JLGWhiz]

try this

Sub CEP_VerificationFillPrin2t()
'
' CEP_VerificationFillPrint Macro
'
' Keyboard Shortcut: Ctrl+y

    For Each Rw In Sheets("CEP PROGRAM").Range("A2", Sheets("CEP PROGRAM").Cells(Rows.Count, 1).End(xlup))
        Rw.Copy Sheets("Source Data").Range("A2")
        Sheets("Verification Sheet").PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Next Rw
End Sub