Sub test()
Dim CellIndex As Long
Dim StartCell As Long
Dim LastCell As Long
Dim ColToFill As Long


    For i =  4  To  7 
    StartCell =  1 
    ColToFill = i

    LastCell = Cells(Rows.Count, ColToFill).End(xlUp).Row

    Application.DisplayAlerts = False

    For CellIndex = StartCell +  1  To LastCell
        With Cells(CellIndex, ColToFill)
                If .Value = .Offset(- 1 ,  0 ).Value & " Итог" Then
                Range(Cells(CellIndex,  2 ), .Offset( 0 ,  0 )).Interior.ColorIndex =  17 
            End If
        End With
    Next CellIndex
    Rows.AutoFit
    Application.DisplayAlerts = True
    Next
End Sub

Range(Cells(CellIndex,  2 ), .Offset( 0 ,  0 )).Interior.ColorIndex =  17 

.Offset( 0 ,  0 )

Cells(CellIndex,  10 )