Multiple Range Copy

[helpexcel]

Hi - I have this code to copy rows to another sheet. I thought I could extend the range by add this code. But no, any suggestions on how I include the extra columns in the copy range?

Tried this

ws1.Range((ws1.Cells(thisRowA, "B"), ws1.Cells(thisRowA, "H")), (ws1.Cells(thisRowA, "K"), ws1.Cells(thisRowA, "O"))).Copy

Do While thisRowA <= lastRowA    
foundRow = Application.Match(ws1.Cells(thisRowA, "B").Value, ws2.Range("A:A"), 0)
    If IsError(foundRow) Then
        thisRowA = thisRowA + 1
    Else
        ws1.Range(ws1.Cells(thisRowA, "B"), ws1.Cells(thisRowA, "H").Copy
        ws3.Cells(nextRowA, "A").PasteSpecial Paste:=xlPasteValues
        nextRow = nextRow + 1
        ws1.Range(ws1.Cells(thisRowA, "B"), ws1.Cells(thisRowA, "O")).ClearContents 
        lastRowA = lastRowA - 1
    End If
Loop

 

[Fluff]

How about

Intersect(ws1.Rows(thisRowA), Union(ws1.Range("B:H"), ws1.Range("K:O"))).Copy

 

[helpexcel]

works great, thanks!!

 

[Fluff]

You're welcome & thanks for the feedback