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