Goto blank cell

[N Prakash]

Hi!

I am stuck, can nay body give a macro code to go to a blank cell in column.

Regards,
Prakash

 

[Andrew Poulsom]

If there is already data and it's contiguous:

Range("A1").End(xlDown).Offset(1,0).Select

and if it's not contiguous:

Range("A65536").End(xlUp).Offset(1,0).Select

 

[Legacy 21301]

Or if you are looking for the first blank cell in column A (whether or not there are data in cells below it) :-

Dim firstBlank As Range
If Len([A1]) = 0 Then
    Set firstBlank = [A1]
ElseIf Application.CountA(Columns(1)) = [A65536].End(xlUp).Row Then
    Set firstBlank = [A65536].End(xlUp)(2)
Else: Set firstBlank = Columns(1).SpecialCells(xlCellTypeBlanks)(1)
End If
firstBlank.Select

 

[N Prakash]

Hi, friends,

Thank you very much. I used one line Macro and it is working great. I had forgotten the offset function.

Regards,
Prakash.