Sub Удаление_автомобилей()

Dim LastRow As Long, i As Long, BaseCell As Long, LastCell As Long, k As Long

LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "B").End(xlUp).Row ' определяю номер последней строки (по колонке "B", ибо в колонке "A" нет данных)
Rows(LastRow + 1).Interior.ColorIndex = 5 ' закрашиваю серым последний ряд, чтобы от него перебирать нужные ячейки

    For i = LastRow + 1 To 1 Step -1 ' цикл от последней серой строки до строки под номером 1
        If Cells(i, 2).Interior.ColorIndex = 5 Then   ' если i-тая ячейка серая
            LastCell = i: Exit For ' то присваеваем переменной LastCell значение i и выходим с цикла
        End If
    Next i
        
ОпределениеBaseCell: ' метка для функции GoTo

        For k = LastCell - 1 To 1 Step -1 ' цикл от последней серой строки -1 до строки под номером 1
            If Cells(k, 2).Interior.ColorIndex = 5 Then   ' если k-тая ячейка серая
                BaseCell = k: Exit For ' то присваеваем переменной BaseCell значение k и выходим с цикла
            End If
            
            If k = 1 Then ' если k = 1,
                Exit Sub ' то закончить выполнение макроса (иначе он зациклится)
            End If
        Next k

Dim AnArray As String
AnArray = Array("*http://*", "страница*", "*ТРК*", "*ДИЕЧИ*", "*КАМАЗ*", "*ГАЗ*", "*МАЗ*", "*САЗ*", "*УАЗ*", "*Dachia*", "*Газель*", "*ЗИЛ*", "*КАВЗ*", "ТЗ_*")

''''''''''''
'Часть кода'
''''''''''''

Метка2:

    For d = LastCell To 1 Step -1 ' цикл от последней определенной серой строки до  1
        If d = 1 Then ' если d = 1,
            Exit Sub ' то закончить выполнение макроса (надо для того, чтобы макрос не зациклился)
        End If
        
        If d = BaseCell Then ' если d (номер последней строки) = номеру начальной строки блока
            LastCell = BaseCell ' то присваеваем номер начальной строки номеру последней строки (чтобы дальше вычислить номер первой строки и продолжить перебирать блоки)
            GoTo ОпределениеBaseCell ' переход для вычисления номера серой строки для начала блока
        End If
    Next d
    
End Sub