Dim aLbaTRos As Integer
    [A2].Select
    aLbaTRos = 3
    While ActiveCell.Value <> ""
        ActiveSheet.Rows(ActiveCell.Row & ":" & _
        aLbaTRos + ActiveCell.Row - 1).Insert Shift:=xlDown
        ActiveCell.Offset(aLbaTRos + 1, 0).Select
    Wend
    aLbaTRos = Empty