Macro to copy all rows from one tab to another, for selected columns to new column headings

[Rosie1900]

Hi, I have one workbook with two tabs - 'raw' & 'final'. I want to copy all rows from 'raw' onto 'final' - but only for selected columns. Also, the column headings in 'raw' aren't identical to the column headings in 'final' but can be mapped as they won't change, month to month.
In essence, I'm looking for a macro that is something along the lines of : for each row in 'raw', copy column 'name1' to column 'name_2'.

 

[Fluff]

Which columns do you want to copy & which columns should they be copied to?

 

[Rosie1900]

Example of column names:

FROM "Street no & name" on tab "raw" TO "Street Address" on tab "final"
FROM "Expense_Office" on tab "raw" TO "OfficeCost" on tab "final"

But there are lots of columns that need to be moved - to be used in formulae on tab "final".

 

[jolivanes]

Is this a possibility?

Sub AAAAA()
Dim arr1, arr2, a As Long, i As Long, ii As Long
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Worksheets("raw")
Set sh2 = Worksheets("final")
arr1 = Array("Street no & name", "Expense_Office")    '<----- Add as required
arr2 = Array("Street Address", "OfficeCost")    '<----- Add as required
    For a = LBound(arr1) To UBound(arr1)
        i = sh1.Rows(1).Find(arr1(a), , , 1).Column
        ii = sh2.Rows(1).Find(arr2(a), , , 1).Column
    With sh1
        .Range(.Cells(2, i), .Cells(.Cells(.Rows.Count, i).End(xlUp).Row, i)).Copy sh2.Cells(2, ii)
    End With
    Next a
End Sub