Determine last number in a column that contains numbers, and strings

Hi anakaine,

You can do this via a simple native formula like so:

=MAX(G2:G22)+1

If you want a VBA solution just adapt the formula into the required cell location i.e.

Option Explicit
Sub Macro2()

    Dim lngMyRow As Long

    lngMyRow = Cells(Rows.Count, "G").End(xlUp).Row 'Find the last row in Col. G
    
    'Puts the MAX formula two rows beneath the last row found from above
    With Range("G" & lngMyRow + 3)
        .Formula = "=MAX(G2:G" & lngMyRow & ")+1"
        .Value = .Value 'Converts the formula to a value. Comment out or delete this if the original formual is required.
    End With

End Sub

HTH

Robert