Extend Selection (in Col A) based on criteria (Col B is blank)

[GTS]

Hello

I am trying to figure out how to extend my selection from a single cell in Col A (active cell), downward, for as long as Col B is blank.

That is, keep extending the selection downward as long as Col B is blank and to stop once an entry in Col B is encountered.
The selection should not include the cell which has an entry in Col B on the same row.
The selection is only in Col A.

Note that there may be blank entries in Col A but that doesn't matter. I want to make a continuous selection.

Can someone help with the vba code please? I've searched, but haven't had luck hitting upon something so far.

GTS

 

[Norie]

Perhaps.

Range(ActiveCell, ActiveCell.Offset(,1).End(xlDown).Offset(-1,-1)).Select

 

[GTS]

Perhaps.

Range(ActiveCell, ActiveCell.Offset(,1).End(xlDown).Offset(-1,-1)).Select

Perfect! Thank you Norie.
Slick what you have come up with. Nice and compact.
Very much appreciated.

GTS