Loop macro through each row until empty

Hi, 

Looking for advice on how to loop this macro for each row until the next cell is empty. 

For context, I am transposing data from a table into a printable form (for each table entry)

Sheets("LEC TEMPLATE").Select
Sheets("LEC TEMPLATE").Copy After:=Sheets(3)
Range("B3").Select
ActiveCell.Formula2R1C1 = "=TRANSPOSE(IF('FULL REPORT'!R[-1]C[-1]:R[-1]C[30]="""","""",'FULL REPORT'!R[-1]C[-1]:R[-1]C[30]))"
Range("B3:B35").Select
With Selection
.HorizontalAlignment = xlLeft
End With
Range("B26").Select
Selection.NumberFormat = "m/d/yyyy h:mm"

End Sub

Thanks, 

L