Bucle a través de un rango de fechas con un intervalo mensual.

Tengo un problema con VBA, estoy intentando hacer un bucle en un rango de fechas con un paso mensual, pero estoy teniendo dificultades en la parte del “paso mensual”.

Actualmente puedo obtener esta salida:

13/08/2021 
14/08/2021 
15/08/2021 
16/08/2021 
17/08/2021 
18/08/2021

Y lo que intento obtener es más bien así:

08/2021 
09/2021 
10/2021 
11/2021 
12/2021 
01/2022

Aquí está mi código:

aIndex = 1
    For Each Cell In Range("F2", Range("F2").End(xlDown))
            aIndex = aIndex + 1
            For J = Range("D" & aIndex) To Cell
                Debug.Print J
            Next J
Next Cell

Las columnas “F” y “D” simplemente contienen fechas con el formato “DD/MM/YYYY” y estoy haciendo un bucle entre la fecha “D” y “F”.

Gracias de antemano,

Nicolas.