Urge macro en excell

[DANIEL_EMI]

QUISIERA UN MACRO QUE ME ANALIZARA MAS DE 6000 LINEAS QUE RECIBO DE UN EQUIPO DE LABORATORIO, SOBRE LA COLUMNA "A" ESTAN EN ORDEN ASCENDENTE DEL 1 AL .... LOS VALORES , PERO CADA 4,5 O 6 LINEAS EXISTE UN CAMBIO POR LO QUE NECESITO QUE AÑADA UNA LINEA EN BLANCO, PARA QUE CADA NUMERO TENGA EXACTAMENTE 6 LINEAS. TENGO ESTE MACRO:

Sub Insert_Rows()
Dim CurrentSheet As Object
For Each CurrentSheet In ActiveWindow.SelectedSheets //CICLO QUE LEA TODOS LOS VALORES DE LA COLUMNA A EN LA HOJA ACTIVA
If Range("A").Value = (An++) Then // CONDICION QUE ESPERO QUE LEA EL VALOR Y LO COMPARE CON EL SIGUIENTE, SI ES IGUAL NO HACE NADA
Else
CurrentSheet.EntireRow.Insert //SI ES DIFERENTE INSERTA UNA LINEA EN BLANCO
End If
End Sub