How do I split the date & time into two separate columns?

Nanner is a diminutive for Banana - The

Sub SplitLongData(): Dim D

is the name of the sub and declaration of a variant for the little array And, thanks for the rep!

BTW - using Colons the whole routine could be written on one line:

Sub SplitLongDate(): Dim D:D = Range("A1"):Range("B1:C1") = Split(D, " "):End Sub