Macro code help

[markster]

Hello all,
I just need a bit of macro code that will look down data in column B (from B2 onwards) which is in this format 2020.03.11 13:32 and add 11-Mar-20 into column C and 13:32 into column D so I can sort by date and time.

So in this case

Column B will show. 2020.03.11 13:32
Column C will Show 11-Mar-20
Column D will show 13:32

Thanks,
Mark

 

[JoeMo]

Untested try on a copy of your data:

Sub FetchDateAndTime()
Dim Lrw As Long
Lrw = Cells(Rows.Count, "B").End(xlUp).Row
With Range("C2:C" & Lrw)
    .Formula = "=DATE(LEFT(B2,4),MID(B2,6,2),MID(B2,9,2))"
    .NumberFormat = "mm/dd/yyyy"
End With
With Range("D2:D" & Lrw)
    .Formula = "=RIGHT(B2,5)+0"
    .NumberFormat = "hh:mm"
End With
With Range("C2:D" & Lrw)
    .Calculate
    .Value = .Value
End With
End Sub