Sub insert_columnName()
Range("A1").EntireColumn.insert
End Sub
Sub column_name()
Dim name: name = Split("Column_Nmae")
Sheet1.Range("A1").Resize(1, UBound(name) + 1) = name
End Sub