copy & paste code 1

[max1565]

I get an error (runtime-error '6': overflow every time the following code is executed. Could someone tell me what the problem is?

Dim LastRow As Integer
LastRow = sheets("database&quot.Range("A3&quot.End(xlDown).Row
sheets("TEMPDB&quot.Range("a3:AI3&quot.Copy Destination:= _
sheets("database&quot.Range("A" & LastRow + 1)

Thanks

 

[TonyJollans]

Hi max1565,

How many rows are in your worksheet? An Integer can only hold a value up to 32K. Try DIMming LastRow As Long if you have more than that - it's good practice for any row variable anyway.

Enjoy,
Tony