Sub Adddata ()
Dim lr As Variant
Sheets("RUNNING TOTAL").Select
lr = Cells.find ("*", Cells(3, 9), xlforumlas, xlPart, xlByRows, xlPrevious, False).Row
Range("I3:K&lr").Copy
Sheets("annual").Select
lrANNUAL = Cells.find ("*", Cells(1, 1), xlforumlas, xlPart, xlByRows, xlPrevious, False).Row
Cells(lrANNUAL + 1, 1).Select
ActiveSheet.Paste
End Sub
The error occurs above in red.
Dim lr As Variant
Sheets("RUNNING TOTAL").Select
lr = Cells.find ("*", Cells(3, 9), xlforumlas, xlPart, xlByRows, xlPrevious, False).Row
Range("I3:K&lr").Copy
Sheets("annual").Select
lrANNUAL = Cells.find ("*", Cells(1, 1), xlforumlas, xlPart, xlByRows, xlPrevious, False).Row
Cells(lrANNUAL + 1, 1).Select
ActiveSheet.Paste
End Sub
The error occurs above in red.