[Dúvida] Erro na cópia de dados entre planilhas.

Pessoal, não sei mais o que fazer para corrigir. O meu código está exatamente igual ao do vídeo e continua dando errado.

Alguém consegue me ajudar?

Sub sbManipulacaoDeDados()

    'Declaração de variável como célula
    Dim rCelula As Range
    Dim lContaLinhaDestino As Long
    
    
    'Inicializa a variável
    lContaLinhaDestino = 2
    
    'Estrutura de repetição
    For Each rCelula In Selection
        
        If rCelula.Column = 4 Then
        
            Sheets("Versão Final").Cells(lContaLinhaDestino, rCelula.Column) = fnAjustaData(rCelula.Value)
        
        Else
        
            Sheets("Versão Final").Cells(lContaLinhaDestino, rCelula.Column) = rCelula
            
        End If
        
        lContaLinhaDestino = lContaLinhaDestino + 1
    Next
    

End Sub


'Função para ajustar data
Function fnAjustaData(pData As String) As Date

    fnAjustaData = Mid(pData, 9, 2) & "/" & Mid(pData, 6, 2) & "/" & Mid(pData, 1, 4)

End Function