Ничего плохого в цикле, но мне нравятся массивы:
Sub CET_Time()
Dim LastRow As Long
LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
With ActiveSheet.Range("A2:A" & LastRow)
.Offset(, 1).Value = ActiveSheet.Evaluate("INDEX(left(" & .Address(1, 1) & ",23)+1/24,)")
.Offset(, 1).NumberFormat = "YYYY-MM-DD HH:MM:SS.000"
End With
End Sub
Если вы просто хотите переписать на место, удалите оба .Offset( ,1)