VBA - kolorowanie co 2 wiersza w kolumnie

Witam,
tak jak w temacie, potrzebuję napisać makro które zakoloruje mi co 2 komórkę w kolumnie, z ograniczeniem do ostatniej komórki z wartością.

Dzięki za pomoc.

Z tego co pamiętam, to nie trzeba do tego makra. Powinno to być wbudowane w Excela. Jest to na tyle popularny use-case, że na pewno gdzieś taka opcja jest.

Nie wiem jak to w postaci makra mogłoby wyglądać, ale ręcznie mniej więcej tak to robię:

1. Ctrl+a - aby zaznaczyć cały obszar
2. narzędzia główne -> Formatowanie warunkowe -> Reguły wyróżniania komórek -> więcej reguł -> Użyj formuły do określenia komórek, które należy sformatować.
3. reguła to: =MOD(WIERSZ();2)=0 , czyli jeśli reszta z dzielenia numeru wiersza przez 2 jest równa 0, to sformatuj komórkę.
   W zależności od posiadanej wersji Office-a, ścieżka do ustalenia reguł formatowania warunkowego może się nieco różnić.

Edit: Zaciekawił mnie temat, bo też często tego używam i pokusiłem się napisać to w formie makra. Oto co wyszło:

Sub kolorki()
  Dim obszar As Range
  Dim szerokosc As Integer
  Dim wysokosc As Integer
  Dim str As Integer
  Dim stc As Integer
  
  ActiveCell.CurrentRegion.Select
  Set obszar = Selection
 
  szerokosc = obszar.Columns.Count
  wysokosc = obszar.Rows.Count
  
  stc = obszar.Row
  str = obszar.Column
  
  For i = 1 To wysokosc - 1 Step 2
    Range(Cells(stc + i, str), Cells(stc + i, str + szerokosc - 1)).Interior.Color = vbYellow
  Next i
End Sub