VBA Range Copy: Skip Middle Columns and Include End Columns in Copy?

[olimits7]

Hi,

I have a worksheet with 20 columns, the below code copies my data in the first 10 columns. However, I would like to skip columns 11-15 but include columns 16-20 in my range copy; what would be the best way to do this?

With Workbooks(rFile).Worksheets("Master List").Range("A1")
        Run rFile & "!replist"
        Range(.Offset(0, 0), .Offset(0, 10).End(xlDown)).Copy
    End With
    
    With ThisWorkbook.Worksheets("REV")
        .Range("A1").PasteSpecial xlPasteAll
        Application.CutCopyMode = False
    End With

Thank you!

 

[Scott T]

maybe something like this after the code you posted

With  Workbooks(rFile).Worksheets("Master List").Range("A1")
        Run rfile & "!replist"
        Range(.Offset(0, 15), .Offset(0, 19).End(xlDown)).Copy
    End With
    
    With ThisWorkbook.Worksheets("REV")
        .Range("P1").PasteSpecial xlPasteAll
        Application.CutCopyMode = False
    End With