Thank you in advance for all the help you have provided me in the past
and in advance for any help you can provide me now. I am working with
a macro to transfer data on an order form to another sheet. I am not
sure how to transfer all of the records there. Right now, I am only
able to transfer the first row. Can someone please help? I have the
code copied beneath.

Thank you....

Sub MoveDate()
' find the next available row on the sheet Data
Set rng = Worksheets("Data").Cells(Rows.Count, 1).End(xlUp)(2)
With Worksheets("DayconOrder")
rng.Value = .Range("B3").Value
rng.Offset(0, 1).Value = .Range("B4").Value
rng.Offset(0, 2).Value = .Range("a12").Value
rng.Offset(0, 3).Value = .Range("B12").Value
rng.Offset(0, 4).Value = .Range("e12").Value
rng.Offset(0, 5).Value = .Range("f12").Value
rng.Offset(0, 6).Value = .Range("g12").Value
End With
End Sub