Find last cell in a spreadshhet using VBA

Here you go.
it will select the last row with data and not a formula.
Please mark the thread as SOLVED if it is

Sub FindLastData()

Dim r, i As Integer
r = Range("A:A").Cells.SpecialCells(xlCellTypeLastCell).Row

For i = r To 1 Step -1

    If VBA.Left(Range("A" & i).Formula, 1) <> "=" Then
        Range("A" & i).Select
        Exit For
    End If
Next

End Sub