I have a VBA code that will copy the latest row of sheet to another blank row on another sheet .
[vba]
Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).EntireRow.Copy _
Worksheets("Sheet5").Range("A" & Rows.Count).End(xlUp).Offset(1)
Application.CutCopyMode = False
[/vba]
Now i need to copy the first row of Sheet1 to latest blank row of sheet5 .
Thank you for your help .