A primeira sugestão é você poste sua planilha ou pelo menos seu código para verficiarmos...

Abrç!

Arquivo em anexo.
O Código é o seguinte:

Sub AddNew()

    'Update data on Plan1 based on new customer entered on Plan2
    Application.ScreenUpdating = False
    
    Dim LData As Integer
    
    'Dim LDatas As String
    Dim LDinheiro As String
    Dim LCD As String
    Dim LCCA As String
    Dim LCCP As String
    Dim LAMEX As String
    Dim LVALE As String
    Dim LTAX As String
    Dim LDOCS As String
    Dim LVENDAS As String
    Dim LRANK As String
    Dim LClientes As String
    Dim LBCO As String
    Dim LDESP As String
    Dim LSaldoHoje As String
    Dim LSaldoDAnterior As String
    Dim LReceita As String
    Dim LTiked As String
    Dim LQuebra As String
    Dim LRESP As String
       
    Dim LRow As Long
    Dim LFound As Boolean
    
    'Before adding new customer, make sure a value was entered
    If IsEmpty(Range("C4").Value) = False Then
    
        'Retrieve new information
        LData = Range("C4").Value
        LDinheiro = Range("C20").Value
        LCD = Range("C21").Value
        LCCA = Range("C22").Value
        LCCP = Range("C23").Value
        LAMEX = Range("C24").Value
        LVALE = Range("C25").Value
        LTAX = Range("C26").Value
        LDOCS = Range("C27").Value
        LVENDAS = Range("C28").Value
        LRANK = Range("C29").Value
        LClientes = Range("C30").Value
        LBCO = Range("C31").Value
        LDESP = Range("C32").Value
        LSaldoHoje = Range("C33").Value
        LSaldoDAnterior = Range("C34").Value
        LReceita = Range("C35").Value
        LTiked = Range("C36").Value
        LQuebra = Range("C37").Value
        LRESP = Range("A39").Value
    
          
        'Move to Plan1 to save the changes
        Sheets("BD").Select
        
        LFound = False
        
        LRow = 2
        
        Do While LFound = False
            
            'Encountered a blank project number (assuming end of list on Plan1)
            If IsEmpty(Range("A" & LRow).Value) = True Then
                LFound = True
            End If
            
            LRow = LRow + 1
        Loop
        
        Range("A" & LRow - 1).Value = LData
        Range("B" & LRow - 1).Value = LDinheiro
        Range("C" & LRow - 1).Value = LCD
        Range("D" & LRow - 1).Value = LCCA
        Range("E" & LRow - 1).Value = LCCP
        Range("F" & LRow - 1).Value = LAMEX
        Range("G" & LRow - 1).Value = LVALE
        Range("H" & LRow - 1).Value = LTAX
        Range("I" & LRow - 1).Value = LDOCS
        Range("J" & LRow - 1).Value = LVENDAS
        Range("K" & LRow - 1).Value = LRANK
        Range("L" & LRow - 1).Value = LClientes
        Range("M" & LRow - 1).Value = LBCO
        Range("N" & LRow - 1).Value = LDESP
        Range("O" & LRow - 1).Value = LSaldoHoje
        Range("P" & LRow - 1).Value = LSaldoDAnterior
        Range("Q" & LRow - 1).Value = LReceita
        Range("R" & LRow - 1).Value = LTiked
        Range("S" & LRow - 1).Value = LQuebra
        Range("T" & LRow - 1).Value = LRESP
        
        'Reposition back on Plan2
        Sheets("FECHA").Select
        
        'Update range for combo boxes
        'ActiveSheet.Shapes("Drop Down 3").Select
        'With Selection
        '    .ListFillRange = "Plan1!$B$2:$B$" & LRow - 1
        'End With
        
        'ActiveSheet.Shapes("Drop Down 8").Select
       ' With Selection
       '     .ListFillRange = "Plan1!$B$2:$B$" & LRow - 1
       ' End With
        
        'Clear entries from cells
        'Range("D12").Value = ""
        'Range("D14").Value = ""
        'Range("D16").Value = ""
        'Range("D18").Value = ""
        
        Range("C4").Select
        
        MsgBox ("Novo registro de fechamento adicionado com sucesso!")
    End If
    Application.ScreenUpdating = True
    'Range("PRINT!A1:C25").PrintOut
End Sub

Está bem poluído. Ainda estou adaptando...

Mude no seu código a seguinte linha de:

Dim LData as Integer

Para:

Dim LData as Date

Uma breve explicação...
Integer = declara números inteiros
Date = Declara datas (que é o seu caso)

Dessa forma seu problema estará resolvido... Abrç!

Perfeito. Muito obrigado

Blz! Não se esqueça de clicar no joinha e marcar seu post como resolvido! Abrç!