Select columns and copy them into a new Excel file

Hello,

I need a Makro in which I can select/specify multiple (as many as I want) columns via an inputform (e.g. columns B, C, E, J, K, AC). These selected columns are then to be copied into a new Excel file, in which they are displayed right next to each other (e.g. old "B" becomes A, old "C" becomes B and so on).

Thank you very much for your help.

Best
Tobitop1

Does this help?

Sub tobitop1()
Dim ws As Worksheet
Dim x As String
Dim y As Long
Dim z As Long
Set ws = ActiveSheet
y = InputBox("Please Enter the Number of Columns too Transfer")
Workbooks.Add
ActiveWorkbook.SaveAs "New Excel File" & ".xls"
z = Workbooks("New Excel File.xls").Sheets("Sheet1").UsedRange.Columns.count
On Error Resume Next
Do Until y = 0
ws.Activate
x = InputBox("Please Enter a Columns to Transfer")
Cells(1, x).EntireColumn.Copy Workbooks("New Excel File.xls").Sheets("Sheet1").Cells(1, z + 1)
y = y - 1
z = z + 1
Loop
On Error GoTo 0
End Sub