Extraer fechas y horas de celdas de texto

Tengo una lista de la C3:C50 llena de fechas y horas como texto dentro de cada celda de esta columna y lo que necesito hacer es extraer la fecha y ponerla en A3:A50 y también la hora en B3:B50 esta funciona lo hace pero solo toma como referencia la C3 y no todo el rango

CÓDIGO:

Dim Fecha as Date

Dim Hora as Date

Fecha = DateValue(ActiveSheet.Range("C3"))

Hora = TimeValue(ActiveSheet.Range("C3"))

Final = Range("C50").End(xlUp).Row

For x = 3 to Final

Cells(x, 1) = Fecha

Next

Final = Range("C50").End(xlUp).Row

For x = 3 to Final

Cells(x, 2) = Hora

Next

Si alguien me lo pudiera corregir por favor agradecido desde ya.

EJEMPLO DE LAS CELDAS C3:C50

9/3/2023  6:27:34 PM

9/4/2023  6:29:34 PM

9/5/2023  6:31:34 PM