Find last cell in a spreadshhet using VBA

**Kelshaer** · 11-28-2011, 12:40 PM

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

**steve_m_2003** · 11-28-2011, 12:50 PM

Originally Posted by Kelshaer

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

This selects cell A1 which contains the column labels which have been hand written and do not include a formula, sorry forgot to put column labels on the sample here is a new one

**jeffreybrown** · 11-28-2011, 01:07 PM

On your sample, this selects cell A458

Sub findlast()
    Dim lr As Long
        For lr = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
            If Len(Range("A" & lr)) > 0 Then Exit For
        Next
    Application.Goto Range("A" & lr)
End Sub