Macros que me haga está condición

Esta sería la macro.
Tu hoja de datos se debe llamar "principal"
Tus hojas de meses se deben llamar "enero", "febrero", "marzo", "abril", "mayo", "junio",
"julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"
Si tienes otros nombres, cambia el nombre en la macro.
La lectura de filas empieza en la fila 2, supongo que en la 1 tienes títulos.
Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: separa_por_mes
9. Aceptar.
10. Para ejecutarla dale click a la imagen.
Sub separa_por_mes()'por.damSheets("principal").Selectmeses = Array("inicio", "enero", "febrero", "marzo", "abril", "mayo", "junio", _ "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre")For i = 2 To Range("D" & Rows.Count).End(xlUp).Row mes = Month(Cells(i, "D")) Rows(i).EntireRow.Copy _ Sheets(meses(mes)). _ Range("A" & Sheets(meses(mes)).Range("D" & Rows.Count).End(xlUp).Row + 1)NextEnd Sub
Saludos. Dam
Si es lo que necesitas.