Copy and Paste without special characters

Hi.
I'd like to see if there is a way to emplementar this code (follows) that you copy and paste, put this in the spreadsheet that he just copies and pastes, colasse need that when the values ​​of columns such date, were without '/', '.', '-', it would be possible?

Sub Copy()
ActiveWorkbook.Sheets("After").Activate
Range("A1").Activate
    Dim i, UltimaLinha, LinhaPlan2 As Integer
    
    UltimaLinha = Sheets("Befor").Cells(Cells.Rows.Count, 1).End(xlUp).Row
    If UltimaLinha < 2 Then UltimaLinha = 2
    
    LinhaPlan2 = 2
    Application.ScreenUpdating = False
    
    For i = 2 To UltimaLinha
        If Sheets("Befor").Range("A" & i).Value <> "" Then
        
            Sheets("After").Range("A" & LinhaPlan2).Value = Sheets("Befor").Range("A" & i).Value
            Sheets("After").Range("B" & LinhaPlan2).Value = Sheets("Befor").Range("B" & i).Value
            Sheets("After").Range("C" & LinhaPlan2).Value = Sheets("Befor").Range("C" & i).Value
            Sheets("After").Range("D" & LinhaPlan2).Value = Sheets("Befor").Range("D" & i).Value
            LinhaPlan2 = LinhaPlan2 + 1
    
 
        End If
    Next
    
    Application.ScreenUpdating = True
    ActiveWorkbook.Sheets("After").Activate
Range("A1").Activate
End Sub