Simple loop trough rows..


While ActiveSheet.Cells(Row, 2).Value <> ""

'Do your thing here..
             
Row = Row + 1
Wend