Hi All

I have the following code - which does the job OK for reading the 1st row
and range on sheet "Print1" and puts all the data in the correct place on
sheet "Card"
how would I code the button Add1 after doing the first row to move and read
the ranges on the next row and insert the data from that row to overwrite
what is already in the sheet"Card"

Private Sub Add1_Click()
Worksheets("Card").Range("A5:I5").Value = UserForm1.Cmd1
Worksheets("Card").Range("D9").Value = UserForm1.Cmd2
Worksheets("Card").Range("E13").Value = Worksheets("Print1").Range("L7")
Worksheets("Card").Range("B7").Value = Worksheets("Print1").Range("A7")
Worksheets("Card").Range("G9").Value = Worksheets("Print1").Range("D21")
Worksheets("Card").Range("D3").Value = Worksheets("Print1").Range("K7")
Worksheets("Card").Range("E7").Value = Worksheets("Print1").Range("D22")
Worksheets("Card").Range("E11").Value = Worksheets("Print1").Range("E7")
Worksheets("Card").Range("F11").Value = Worksheets("Print1").Range("F7")
End Sub
The range on the sheet"Card" would always remain the same --- I have about
60 rows to move down.
--
Many thanks

hazel