VB to find & positioning on first blank cell

I think this is what you asked for. This will select the first blank cell in column A and will tell you what the last non blank cell in A is:

Option Explicit

Sub FirstEmptyandLastCell()
Dim lastrow As Long, icell As Long
Dim Msg As String

lastrow = Range("A" & Rows.Count).End(xlUp).Row

For icell = 1 To lastrow
    If Range("A" & icell).Value = "" Then
        Range("A" & icell).Select
        GoTo Finish
    End If
Next icell

Finish:
Msg = MsgBox("The last range with a value is in cell A" & lastrow, vbOKOnly, "Last Cell")

End Sub

Hi stnkynts,

first of all thanks. Your input tells me where the last cell in the A column is, but what I need, instead is to positioning the cursor over there, to start to fill the file w/o having to scroll down evrytime I want to get there. Is that possible?

Thanks
CM

There are many ways you can do this. Just to make sure i understand correctly you want to select the row after the last row with data in it. Something like this should work just fine:

Sub selectlastrow()

Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select

End Sub

Hi stnkynts, anyway thanks for your help.

Regards
CM

Dear Marvin,

you're a pro! You've interpreted correctly my problem and managed a 100 % useful solution! Brilliant!

Many thanks