Boa tarde!!

Use uma formula via VBA.

Não testado!!

Sub AleVBA_26522()
Dim rRange As Range
Set rRange = Range("A1", Range("A65536").End(xlUp))
    With rRange
         .EntireColumn.Insert
         .Offset(0, -1).FormulaR1C1 = _
         "=VALUE(MID(RC[1],9,2)&""/""&MID(RC[1],6,2)&""/""&LEFT(RC[1],2))"
         .Offset(0, -1) = .Offset(0, -1).Value
         .Offset(0, -1).NumberFormat = "dd/mm/yyyy"
         .EntireColumn.Delete
    End With
End Sub

Att

A data foi convertida, porém o Ano ficou como 2020 ao invés de 2017 e as horas foram suprimidas.

Não acho que seja necessário usar código pra isso, até porquê no código se é aplicado a mesma lógica de aplicar uma fórmula direto...

Enfim, cole isso em B2 e copie para o resto.

=DATA.VALOR(EXT.TEXTO(A2;LOCALIZAR(" ";A2)-2;2)&"/"&EXT.TEXTO(A2;LOCALIZAR("-";A2)+1;2)&"/"&ESQUERDA(A2;4)&EXT.TEXTO(A2;LOCALIZAR(" ";A2);9))

Ela será consistente se a data vier sempre desta maneira.

Boa tarde!!

Tente assim.

Sub AleVBA_26522()
Dim rRange As Range
Set rRange = Range("A1", Range("A65536").End(xlUp))
    With rRange
         .EntireColumn.Insert
         .Offset(0, -1).FormulaR1C1 = "=DATEVALUE(MID(RC[1],SEARCH("" "",RC[1])-2,2)&""/""&MID(RC[1],SEARCH(""-"",RC[1])+1,2)&""/""&LEFT(RC[1],4)&MID(RC[1],SEARCH("" "",RC[1]),9))"
         .Offset(0, -1) = .Offset(0, -1).Value
         .Offset(0, -1).NumberFormat = "dd/mm/yyyy"
         .EntireColumn.Delete
    End With
End Sub

Att

Me parece que a proposta do colega Skulden tambem não considera a hora. Considerando essa proposta pode ser utilizada assim:

=DATA.VALOR(EXT.TEXTO(A2;LOCALIZAR(" ";A2)-2;2)&"/"&EXT.TEXTO(A2;LOCALIZAR("-";A2)+1;2)&"/"&ESQUERDA(A2;4)&EXT.TEXTO(A2;LOCALIZAR(" ";A2);9))+VALOR.TEMPO((EXT.TEXTO(A2;12;8)))

Se preferir utilizar VBA

Sub AlteraData()
Dim rRow As Integer
Dim Dts As String, Hrs As String

For rRow = 2 To Cells(Cells.Rows.Count, "A").End(xlUp).Row
Dts = Left(Cells(rRow, 1).Value, 19): Hrs = Mid(Cells(rRow, 1).Value, 12, 8)
    Range("D" & rRow) = VBA.DateValue(Dts) + VBA.TimeValue(Hrs)
Next
End Sub