Excel 2007 counting across rows to the next blank cell

I can give you a start. Hope this helps but the following code will move across a given range until there is nothing.

Range ("B6").Select
ActiveCell.offset(0,1).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0,1).Select
Loop
End If