Não havia pensado na hipótese do professor. Por mais que tenha ficado diferente também funcionou com a função IF no fim do código.

Sub sbManipulaDados()

'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 do tipo for Each
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.Value
    End If
    
    If rCelula.Column = 4 Then
          lContaLinhaDestino = lContaLinhaDestino + 1
    End If
    

Next

End Sub

'Função que ajusta a data de formato USA para Brasileiro Function fnAjustaData(pData As String) As Date fnAjustaData = Mid(pData, 9, 2) & "/" & Mid(pData, 6, 2) & "/" & Mid(pData, 1, 4) End Function