Public Sub GetRealLastCell() Dim realastRow As Long Dim realastColumn As Long Range("A1").Select On Error Resume Next realastRow = Cells.Find("*", Range("A1"),xlFormulas, , xlByRows, xlPrevious).Row realastColumn = Cells.Find("*", Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column Cells(realastRow, realastColumn).Select End Sub