Цикл, перебирающий ячейки

Sub Макрос2()
If Cells(2, 3) = Cells(12, 1) Then
 Range("C4:C10").Clear
 End If
With Range("C4:C10").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
   End With
   
End Sub

for I = 4 to 10
With Range("C" & I)
а в пустую строку 12 поставить Next

Sub Perebor()
For i = 1 To Cells(2, Columns.Count).End(xlToLeft).Column
  If Cells(2, i) <> "" Then
    'Здесь чисти и красим
  End If
Next
End Sub

Private Sub Test()
    Dim c As Range, t$: t = [A12]
    For Each c In [2:2].SpecialCells(xlConstants) ', xlTextValues)
        If c = t Then
           With c(3).Resize(7)
                .Clear
                .Interior.Color = vbYellow
           End With
        End If
    Next
End Sub