Range("k2").Formula = "= datevalue(f2)"

Range("k2").AutoFill Destination:=Range("k2:K" & Cells(Rows.Count, 1).End(xlUp).Row)

Range("k2:K" & Cells(Rows.Count, 1).End(xlUp).Row).Copy

Range("f2").PasteSpecial xlPasteValues

Range("f2:f" & Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "dd/mm/yyyy"

Range("k2:K" & Cells(Rows.Count, 1).End(xlUp).Row).Clear

Columns("H:H").Insert

Range("g2:G" & Cells(Rows.Count, 1).End(xlUp).Row).Select

Selection.TextToColumns Destination:=Range("G2"), DataType:=xlFixedWidth, _

FieldInfo:=Array(Array(0, 1), Array(8, 1)), TrailingMinusNumbers:=True

Columns("H:H").Delete

Range("I:I").Insert

Range("H2:H" & Cells(Rows.Count, 1).End(xlUp).Row).Select

Selection.TextToColumns Destination:=Range("H2"), DataType:=xlFixedWidth, _

FieldInfo:=Array(Array(0, 1), Array(8, 1)), TrailingMinusNumbers:=True

Columns("I:I").Delete

Range("G:G,H:H").NumberFormat = "hh:mm"