指定条件（会社名など）で交互に着色する

Sub 会社名で交互に着色する()
    
    For 行 = 2 To 11
        
        If Range("A" & 行) = Range("A" & 行 - 1) Then '1個上と同じ場合
            
            '1個上と同じ色に着色
            Range("A" & 行 & ":B" & 行).Interior.Color = Range("A" & 行 - 1).Interior.Color
                  
        Else '1個上と違う場合
            
            '1個上が青じゃない場合
            If Range("A" & 行 - 1).Interior.Color <> RGB(219, 229, 241) Then
                
                '青にする
                Range("A" & 行 & ":B" & 行).Interior.Color = RGB(219, 229, 241)
                
            End If
            
        End If
        
    Next 行

End Sub

考え方は、 1個上と同じ場合、1個上と同じ色を付ける 1個上と違う場合、1個上が青ではないなら青を付けるです。一見混乱しますが、冷静に整理してみましょう。