ecks,

Boa tarde!

supondo que os dados estão numa aba chamada "Plan1" e que os dados da coluna B começam na linha 2...

Sub Converter()
    Dim i As Long
    Dim UltimaLinha As Long
    
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 2).End(xlUp).Row
    If UltimaLinha < 2 Then UltimaLinha = 2
    
    For i = 2 To UltimaLinha
        Range("B" & i).Value = CDate(Range("B" & i).Value)
    Next
End Sub

Funcionou perfeitamente! Obrigado!