Veja este código:

Sub Separa_Data_GT()

Dim PL      As Long 'PL = Primeira Linha
Dim UL      As Long 'UL = Última Linha
Dim i       As Long
Dim Coluna  As String

Coluna = "A"

PL = Cells(2, Coluna).Row
UL = Cells(Rows.Count, Coluna).End(xlUp).Row

For i = UL To PL Step -1
    If Cells(i, Coluna).Value = Cells(i - 1, Coluna).Value Then
        'não faz nada
    Else
        Cells(i, Coluna).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    End If
Next i
End Sub

Onde está:

Coluna = "A"

Coloque a coluna das datas, se não for a coluna "A"

Mais que perfeito!
Muitíssimo obrigado.

Eu acessei o fórum pela primeira vez hoje, mas vou verificar se existe alguma área para tutoriais e tentar aprender alguma coisa, quem sabe até ajudar com alguma coisa.

Salvou meu dia gtsalikis, kk.

Não temos exatamente "tutoriais", porém,

temos a board de dicas e macetes:
viewforum.php?f=28

e temos a board de modelos (biblioteca), alguns com soluções para problemas comuns:
viewforum.php?f=21

Abs

Opa, blza?

Estão me pedindo algo um pouco diferente agora.
Estou precisando inserir uma linha após cada mês.

As datas não são fixas e ficam assim, por exemplo:

01/07/2012 
01/07/2012 
02/07/2012 
02/07/2012 
05/07/2012 
05/07/2012 
05/07/2012 
05/07/2012 
05/07/2012 
09/07/2012 
10/07/2012 
21/07/2012 

Acredito ter entendido a lógica da PL e UL, mas penso que sirva somente para exatas, pois tentei mudar o código e não consegui.
Alguém tem uma solução?

É quase a mesma coisa:

Sub Separa_Mes_GT()

Dim PL      As Long 'PL = Primeira Linha
Dim UL      As Long 'UL = Última Linha
Dim i       As Long
Dim Coluna  As String

Coluna = "A"

PL = Cells(2, Coluna).Row
UL = Cells(Rows.Count, Coluna).End(xlUp).Row

For i = UL To PL Step -1
    If Month(CDate(Cells(i, Coluna))) = Month(CDate(Cells(i - 1, Coluna))) Then
        'não faz nada
    Else
        Cells(i, Coluna).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    End If
Next i
End Sub

Abs

Obrigado, mestre!
Funcionou 100%!