Can anyone please help.
Dim Lrow,LColumn as Long 
Sheet1.Activate 
If WorksheetFunction.CountA(Cells) > 0 Then 
LRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
LColumn = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column 
End If