Copying and moving multiple columns around

[Sccye]

Hey all,

I've got data in columns C,F,I,K,L,O and P and can't for the life of me figure out how to copy them into a new workbook, so they're then all side by side in the new book.

I thought this would've been really easy to find the answer to, but seems not to be the case, alas. Column K then needs to be on the right of column L and O on the right of P.

I can't attach the sheet that it actually needs doing on as the data is confidential, but I've mocked up a very quick dummy sheet for example.

Thanks in advance!

This is what I have at current, as well

Sub CreateReport_step1()

    Dim nDate$
    Dim FileName_IMM$
    Dim FileName_BATML$
    
    nDate = Format(Now, "yyyymmdd")
    FileName_IMM = "Master Report " & nDate & ".xls"
    FileName_ML = "Master List " & nDate & ".xls"

    Windows("MAster Report - " & nDate & ".xls").Activate
    'Selects the daily report
    Sheets(1).Select
    'Selects the relevant Sheet
    Range("C" & "F" & "I" & "K" & "L" & "O" & "P").Copy
    'Selects the columns with the data we need for the Master List
        
    Workbooks.Add
    Range("A1").Select
    ActiveCell.PasteSpecial (xlPasteColumnWidths)
    Selection.Paste
        
End Sub

[watersev]

Hi,

Sub test()
Union([c:c], [f:f], [i:i], [l:l], [k:k], [p:p],[o:o]).Copy Sheets(3).[a1]
End Sub

[Sccye]

Watersev,

I try running it and I get an error message saying 'Object doesn't support this property or method'.

Any ideas?

Thanks.

[watersev]

activate sheet "Before" and run macro "test"