copy & Paste

[max1565]

I have the folowing code , but it is not working. Can someone tell me what is wrong?


Dim LastRow As Integer
LastRow = Sheets("database&quot.Range("A5&quot.End(xlDown).Row
Sheets("database&quot.Range("a1:AG1&quot.Copy Destination:= _
Sheets("database&quot.Range("A" & LastRow + 1)

Thanks

 

[pvw]

Hi max1565

The syntax seems to be ok. The only problem I can see is the declaration of 'LastRow' as data type Integer. If the last row is > 32'767 you'll get an overflow error. Variables for rows are usually declared as Long.

Philipp