IF com condição de data

[Albano Netto 0]

Pessoal, estou com um problema em uma programação de VBA, sou iniciante e não estou conseguindo realizar um IF com data. A situação é que, tenho várias datas em uma coluna, e preciso que adicione uma linha abaixo de uma célula que possua valor de data diferente (para separar as datas iguais). O que acontece é que, a programação que eu fiz o excel faz a primeira linha depois das datas iguais, e depois disso começa a colocar linha em baixo de todas as próximas células. Segue o pedaço da programação que fiz:

Dim linha As Integer

linha = 3

Dim linha1 As Date

linha1 = Range("A" & linha)

    While Range("A" & linha).Select And ActiveCell <> ""
    
        If Range("A" & linha + 1) <= linha1 Then
            
            linha = linha + 1
            
        Else: Range("A" & linha + 1 & ":" & "C" & linha + 1).Select
        
            Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        
        linha = linha + 2
        
        End If
    Wend
 

[Alyson Ronnan Martins 0]

@Albano Netto bom dia.

Eu já encontrei vários problemas usando data então comecei a colocar ela como "Double"

Então recomendo o seguinte:

Dim linha1 As Date
'Para
Dim linha1 as Double

E toda vez que for pegar o valor de uma planilha coloca .Valeu

linha1 = Range("A" & linha)
'Para
linha1 = Range("A" & linha).Value

Else tem mais locais aonde você pega o valor.

[Albano Netto 0]

@Alyson Ronnan MartinsNão resolveu, as datas estão agrupadas, e o excel tá fazendo o meu if só até fazer o primeiro else, que é adicionar a linha, depois que ele coloca a primeira linha ele começa a colocar depois de todas as datas, independente de ser igual a anterior.