Мне нужна помощь для выхода из цикла, когда ячейка пуста

Question

Вот мой текущий код.Он зацикливается и вводит данные, которые мне нужны, но не останавливается, когда я этого хочу.Мне нужно остановить его, когда ячейка в столбце B окажется пустой.

Sub Insert_Tasks_Info()
    '
    ' Insert_Tasks_Info Macro
    '

    Dim counter As Integer
    counter = 4

    'runs macor until first empty cell in Column "B"

    Do Until ThisWorkbook.Sheets("Data").Cells(counter, 2).Value = ""

        'copies order task info and pastes into data tab

        Sheets("Template").Select
        Range("A4:G9").Select
        Selection.Copy
        Sheets("Data").Select
        Range("A3").Select
        Selection.End(xlDown).Select
        NextFree = Range("A3:A" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
        Range("A" & NextFree).Select
        Selection.Insert Shift:=xlDown

        'copies hours info and pastes into data tab

        Sheets("Template").Select
        Range("F3:AA9").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Data").Select
        Range("F2").Select
        Selection.End(xlDown).Select
        NextFree = Range("F2:F" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
        Range("F" & NextFree).Select
        ActiveSheet.Paste

        Call Insert_Zone

        counter = counter + 1

    Loop

End Sub