Microsoft Excel - Macros - Convert - Text to Columns

Range("B1")= "First Name"
Range("C1")= "Last Name"
Range("A2",Range("A2").End(xlDown)).TextToColumns _
Destination:=Range("B2"), DataType:=xlDelimited,Space:=True
Columns("B:C").AutoFit
Range("A1",Range("A1").End(xlDown)).Copy
Range("B1",Range("B1").End(xlToRight).End(xlDown)).PasteSpecial _
Paste:=xlPasteFormats
Application.CutCopyMode= False