Sub SplitDate()
Dim vTxt

Range("A2").Select
While ActiveCell.Value <> ""
   vTxt = ActiveCell.Value
   ActiveCell.Offset(0, 1).Value = "'" & Format(vTxt, "mm/dd/yyyy")  'next col over
   ActiveCell.Offset(0, 2).Value = "'" & Format(vTxt, "hh:nn:ss")    '2 cols over
   
   ActiveCell.Offset(1, 0).Select  'next row
Wend
End Sub