Necesito un macro que recorra un rango de fecha

Te facilito la macro

Sub colorear()
'Por.DAM
'Act.Aortiz
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If IsDate(Cells(1, "A")) Then
If Month(Cells(i, "A")) = Month(Date) Then
            Range(Cells(i, "A"), Cells(i, "C")).Interior.ColorIndex = 4
    Else
        Range(Cells(i, "A"), Cells(i, "C")).Interior.ColorIndex = xlNone
    End If
End If
Next
End Sub

Valora la respuesta para finalizar saludos!

Cambias la línea de la letra para pintar de la columna A a E, yo le puse hasta C

Range(Cells(i, "A"), Cells(i, "E")). Interior.ColorIndex = 4

adriel excelente esto era lo que necesitaba lo único que quisiera agregarle a la macro es lo siguiente

Que en la columna E hay importes, entonces necesitaría que me sume los importes de las filas coloreadas y me coloque el total en un celda que yo decida como puede se F1

Podrá ser desde ya mil gracias

Otra cosa adriel que se me paso la macro empieza a buscar desde A1 hacia abajo las fechas,

Yo quisiera que lo haga desde A5 así puedo poner títulos gracias

Te paso la actualizada

Sub Colorear_Fechas_Mes()
'Por.Dante Amor
    For i = 5 To Range("A" & Rows.Count).End(xlUp).Row
        If IsDate(Cells(1, "A")) Then
            If Month(Cells(i, "A")) = Month(Date) Then
                Cells(i, "A").Interior.ColorIndex = 6
            Else
                Cells(i, "A").Interior.ColorIndex = xlNone
            End If
        End If
    Next
    MsgBox "fin"
End Sub

Valora la respuesta para finalizar

No me funciona se dejo desde a1 a a5 libre no me lo colorea

Aquí va

Sub Colorear_Fechas_Mes()
'Por.Dante Amor
    For i = 5 To Range("A" & Rows.Count).End(xlUp).Row
        If IsDate(Cells(5, "A")) Then
            If Month(Cells(i, "A")) = Month(Date) Then
                Cells(i, "A").Interior.ColorIndex = 6
            Else
                Cells(i, "A").Interior.ColorIndex = xlNone
            End If
        End If
    Next
    MsgBox "fin"
End Sub

Ahora está perfecto lo único que faltaría el es el tema de la suma