Hi
I have thefollowing macro to transfer information from one sheet to anothe
however it doesnt like the 'Lr = lastRow("DestSheet")' can anyone please help?
Sub Transfer()
Dim SourceRange As Range, DestRange As Range
Dim DestSheet As Worksheet, Lr As Long

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

Set SourceRange = Sheets("Outstanding").Range("a13:T13")

Set DestSheet = Sheets("Paid")
Lr = lastRow("DestSheet")

Set DestRange = DestSheet.Range("A" & Lr + 1)

SourceRange.Copy
DestRange.PasteSpecial xlPasteValues, , False, False
Application.CutCopyMode = False

With Application
.ScreenUpdating = True
.EnableEvents = True
End With

End Sub

--
Warm