Public Sub MojaProceduraKolory()
   Dim myD As Range ' deklaracja zmiennej obszarowej, np. komórki lub grupy komórek
   Dim i As Integer ' zmienna jako licznik pętli
   ' przypiszemy do zmiennej myD adres komórki początkowej
   Set myD = Range("A1")
   For i = 1 To 10
      myD.Offset(i - 1, i - 1) = "i=" & LTrim(Str(i))
      myD.Offset(i - 1, i - 1).Select
      If i Mod 2 = 0 Then
         With Selection.Interior
             .ColorIndex = 7
             .Pattern = xlSolid
         End With
       Else
         With Selection.Interior
           .ColorIndex = 4
           .Pattern = xlSolid
       End With
         
      End If
   Next i
   For i = 9 To 1 Step -1
      myD.Offset(10 + 9 - i, i - 1) = "i=" & LTrim(Str(i))
      myD.Offset(10 + 9 - i, i - 1).Select
       With Selection.Interior
             .ColorIndex = i
             .Pattern = xlSolid
         End With
   Next i
   
End Sub