Something like this but change your do while to what you need.

Dim x, y As Single

x = 1
y = 1

Do While Range("B" & x).Value < ""
Range("A" & x & ":AR" & y).Select
x = x + 1
y = y + 1
Loop