Copy&paste Print loop help please

Hi,

I'm not very experienced in writing VBA at all and so find myself stuggling with what seems to be a simple task.

I have a template which basically has a vlookup to a list (grni sheet). What im trying to do is to get excel to print the template and then copy and paste the next cell down from the list "grni sheet" and print again until it reaches the bottom of the list

All I have so far is:

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("grni").Select
ActiveCell.Offset(1, 0).Range("A1").Select 'i need this to work it's way down the list to the end'
Selection.Copy
Sheets("Manual Adjustment Form").Select
ActiveCell.Offset(-4, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(4, 1).Range("A1").Select
Application.CutCopyMode = False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

If i can get this to work it is going to save so much time so any help or suggestions would be appreciated.

Thanks