Отредактировать макрос для очистки первых 12 столбцов слева так, чтобы он не останавливался на пустых строках

    Dim bp As Range
    Set bp = [bp10:bp3010].Find([BB1], [bp3010], xlValues, xlWhole)
    Do Until bp Is Nothing
    bp.Resiz(, 12).Clear
    Set bp = [bp10:bp3010].FindNext(bp)
    Loop

bp.ResizE(,12).Offset(, -12).Clear

Sub Ud_dannih_1()
       Dim bp As Range
    Set bp = [bp10:bp3010].Find([BB1], [bp3010], xlValues, xlWhole)
    Do Until bp Is Nothing
    bp.Resize(,12).Offset(, -12).Clear
    Set bp = [bp10:bp3010].FindNext(bp)
    Loop
        
    Range("BI10:BP3010").Value = Clear
    Range("BF10:BF3010").Value = Clear
        
        ActiveWorkbook.Worksheets("JOB").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("JOB").Sort.SortFields.Add Key:=Range("BG10"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("JOB").Sort
        .SetRange Range("BG10:BH3010")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
  End Sub

Public Sub qSortStr(List() As String, ByVal min As Long, ByVal max As Long)
    'Только текст
    Dim i&, l&: Static s1$, s2$
    i = min: l = max: s1 = List((i + l) \ 2)
        Do Until i > l: While List(i) < s1: i = i + 1: Wend: While List(l) > s1: l = l - 1: Wend
        If (i <= l) Then s2 = List(i): List(i) = List(l): List(l) = s2: i = i + 1: l = l - 1
    Loop
    If min < l Then qSort List, min, l
    If i < max Then qSort List, i, max
End Sub
 
Public Sub qSort(List As Variant, ByVal min As Long, ByVal max As Long)
    'Элементы сравниваются как Variant
    Dim i&, l&: Static v1, v2
    i = min: l = max: v1 = List((i + l) \ 2)
        Do Until i > l: While List(i) < v1: i = i + 1: Wend: While List(l) > v1: l = l - 1: Wend
        If (i <= l) Then v2 = List(i): List(i) = List(l): List(l) = v2: i = i + 1: l = l - 1
    Loop
    If min < l Then qSort List, min, l
    If i < max Then qSort List, i, max
End Sub

Option Explicit: Option Compare Text
 
Sub macro()
    Dim s$, j$()
    s = "Диапазоны расположены в одном листе. В каждом диапазоне находятся разные данные, но все они относятся к одному автомобилю. И вот, когда я по гос номеру вывожу данные на какой-либо автомобиль, то и всё, что с ним связано, выводится в нужный мне диапазон и сортируется"
    j = Split(s)
    qSort j, 0, UBound(j)
    MsgBox Join(j, vbCrLf)
End Sub
 
Public Sub qSort(List As Variant, ByVal min As Long, ByVal max As Long)
    'Элементы сравниваются как Variant
    Dim i&, l&: Static v1, v2
    i = min: l = max: v1 = List((i + l) \ 2)
        Do Until i > l: While List(i) < v1: i = i + 1: Wend: While List(l) > v1: l = l - 1: Wend
        If (i <= l) Then v2 = List(i): List(i) = List(l): List(l) = v2: i = i + 1: l = l - 1
    Loop
    If min < l Then qSort List, min, l
    If i < max Then qSort List, i, max
End Sub