Borrowed this from Ron DeBruin's site but can't get it to work:

Dim SourceRange As Range, DestRange As Range
Dim DestSheet As Worksheet, Lr As Long
Set SourceRange = Sheets("Cart and Time Sheets").Range("l2:x2")
Set DestSheet = Sheets("tests")
Lr = LastRow(DestSheet)

Gets to the Lr line and gives me a sub or function not defined error. I'm
pretty well clueless and any help would be much appreciated.