From active cell, select NonBlank cells Up to first blank cell

[julhs]

This should be SO simple, but have got an utter mind blank!!
Just want to select the range from the active cell up to the FIRST occuring blank cell

 

[Tom Urtis]

Not SO simple.

Explain what "blank cell" means, such as if nothing (nothing means nothing) is in that cell or maybe a formula returns a null string meaning that cell looks "blank" but really is not empty.

Explain what column this is or if it is a multi-column range.

Explain if you want a VBA solution or you want the manual steps.

 

[julhs]

Thank for response Tom
"Blank" means completely empty
Single column, C
VBA, as looking to fit it into another routine

 

[julhs]

If it helps.
C4 has value
C5 has value
C6 is BLANK
C7 has value
C8 has value
C9 has value
C10 is Active cell
Select C10:C7

 

[Tom Urtis]

This should cover your bases, assuming the macro is executed when the active cell is in column 3.

Note the usual boilerplate proviso that you rarely need to select a cell or range in order to manipulate it. But your literal request was to select the range, so here it is.

Sub Test()
Dim xRow As Long, LastEmptyRow As Long
If Len(ActiveCell.Offset(-1).Value) = 0 Then
xRow = ActiveCell.Row - 1
Else
For xRow = ActiveCell.Row - 1 To 1 Step -1
If Len(Cells(xRow, 3).Value) = 0 Then
LastEmptyRow = xRow
Exit For
End If
Next xRow
End If
Range(ActiveCell, Cells(xRow + 1, 3)).Select
End Sub

 

[julhs]

Sorry for delayed response, been working on my primary code to incorporate of what you gave me.
It did what I asked and have tweaked my primary code to utilise it.
I appreciate your comment:

Note the usual boilerplate proviso

But due to my poor VBA knowledge/skills the way I overcame a problem in my primary code was to select the cell in question,
BUT this lead to the need for this post.
Have now got things working as I wanted.
Many thanks for your help
Julhs