Copy columns from one sheet to new, rename headlines

Can you provide a sample maybe inserting a row 1 which shows where each column would be on the new sheet2. VLOOKUP sounds to me would not be the best option.

yea okay - maybe a bit hard since there is 120 columns, or well about 50 which needs to be renamed and replaced and 60-70 empty with a certain headline inserted.

but it would be something like this:
So I have what the original headlines are, and what critiera it should insert into the new sheet (ie. what the new headline should be + what number it has to be and where the empty columns and what they needs to be called) it's just that it's 120 columns, so mostly the specifications that will take time I guess once there is a VBA template where I can change the input/output?

I have found this code which can do some of it - I just need it to change the column names while it copies to the new specified numbers, is that possible

Sub MoveColumns()

' MoveColumns Macro
'
' Developer: Winko Erades van den Berg
' E-mail : winko@winko-erades.nl
' Developed: 03-10-2011
' Modified: 03-10-2011
' Version: 1.0
'
' Description: Rearrange columns in Excel based on column header

Dim iRow As Long
Dim iCol As Long

'Constant values
data_sheet1 = InputBox("Specify the name of the Sheet that needs to be reorganised:") 'Create Input Box to ask the user which sheet needs to be reorganised
target_sheet = "Final Report" 'Specify the sheet to store the results
iRow = Sheets(data_sheet1).UsedRange.Rows.Count 'Determine how many rows are in use

'Create a new sheet to store the results
Worksheets.Add.Name = "Final Report"

'Start organizing columns
For iCol = 1 To Sheets(data_sheet1).UsedRange.Columns.Count

    'Sets the TargetCol to zero in order to prevent overwriting existing targetcolumns
    TargetCol = 0

    'Read the header of the original sheet to determine the column order
    If Sheets(data_sheet1).Cells(1, iCol).Value = "billing_country" Then TargetCol = 7
    If Sheets(data_sheet1).Cells(1, iCol).Value = "partner_accountname" Then TargetCol = 2
    If Sheets(data_sheet1).Cells(1, iCol).Value = "partner_number" Then TargetCol = 3
    If Sheets(data_sheet1).Cells(1, iCol).Value = "pbl_due_date" Then TargetCol = 4
    If Sheets(data_sheet1).Cells(1, iCol).Value = "total_amount" Then TargetCol = 5
    If Sheets(data_sheet1).Cells(1, iCol).Value = "pb_payment_currency" Then TargetCol = 6
    If Sheets(data_sheet1).Cells(1, iCol).Value = "sort_code" Then TargetCol = 1
    If Sheets(data_sheet1).Cells(1, iCol).Value = "cda_number" Then TargetCol = 8

    'If a TargetColumn was determined (based upon the header information) then copy the column to the right spot
    If TargetCol <> 0 Then
        'Select the column and copy it
        Sheets(data_sheet1).Range(Sheets(data_sheet1).Cells(1, iCol), Sheets(data_sheet1).Cells(iRow, iCol)).Copy Destination:=Sheets(target_sheet).Cells(1, TargetCol)
    End If

Next iCol 'Move to the next column until all columns are read

End Sub
--------------------------------------------------------------------------------