Поиск ошибок в цикле

Sub test2()
    Dim i As Integer
    Dim a As Integer
    Dim preLastColumn As Integer
    
    preLastColumn = Range("5:1").Find("Итог").Column - 1
    
    For i = 6 To 970 Step 1
     ColumnName = Cells(i, 10)
     
     
     Range("5:1").Find(ColumnName).Select: On Error GoTo B: Err.Clear
     a = ActiveCell.Column
     For j = a To preLastColumn Step 1
     Cells(i, j).Select
     
     'If ActiveCell.Value IsEmpty Then
     With Selection.Interior
       .Pattern = xlSolid
       .PatternColorIndex = xlAutomatic
       .ThemeColor = xlThemeColorAccent6
        End With
    'End If
    
    Next j
    
B:
    Next i
    
End Sub

Sub test2()
    Dim i As Integer
    Dim a As Integer
    Dim preLastColumn As Integer
    
    preLastColumn = Range("5:1").Find("Итог").Column - 1
    For i = 6 To 12
     Set r = Range("5:1").Find(Cells(i, 10))
     If Not r Is Nothing Then
     For j = r.Column To preLastColumn Step 1
     
     'If ActiveCell.Value IsEmpty Then
     With Cells(i, j).Interior
       .Pattern = xlSolid
       .PatternColorIndex = xlAutomatic
       .ThemeColor = xlThemeColorAccent6
        End With
    'End If
    Next j
End If
 
    Next i
    
End Sub