Create a MACRO to select specific rows through an iteration and colour them (Excel VBA)

Aless1275 

You could use Conditional Formatting:

Select A2:B8761. A2 should be the active cell in the selection.

On the Home tab of the ribbon, click Conditional Formatting > New Rule...
Select 'Use a formula to determine which cells to format'.
Enter the formula

=$B2=1

Click Format...
Activate the Fill tab.
Select a highlight color.
Click OK twice.

If you prefer VBA:

Sub color_Rows_Days_test()
    Dim r As Long
    Dim m As Long
    Application.ScreenUpdating = False
    m = Range("B1").End(xlDown).Row
    For r = 2 To m Step 24
        With Range("A" & r).Resize(1, 2).Interior
            .ThemeColor = xlThemeColorAccent2
            .TintAndShade = 0.799981688894314
        End With
    Next r
    Application.ScreenUpdating = True
End Sub