I have the folowing code , but it is not working. Can someone tell me what is wrong?
Dim LastRow As Integer
LastRow = Sheets("database".Range("A5".End(xlDown).Row
Sheets("database".Range("a1:AG1".Copy Destination:= _
Sheets("database".Range("A" & LastRow + 1)
Thanks
Dim LastRow As Integer
LastRow = Sheets("database".Range("A5".End(xlDown).Row
Sheets("database".Range("a1:AG1".Copy Destination:= _
Sheets("database".Range("A" & LastRow + 1)
Thanks