VBA Help

[Jennifer Van]

Range(Cells(Target.Row, "A"), Cells(Target.Row, "C")).Copy Sheets("WaitList").Range("A" & Rows.Count).End(3)(2)
End If
Hi
This works well and copies the first 3 cells onto another worksheet. Can someone show me how I now add three more columns to copy - I now want, as well as columns ABC, I also want MNO - I have tried playing with the above forumula with no luck!

 

[EXCEL MAX]

You can try using "Union" and "Resize".

Union(Cells(Target.Row, "A").Resize(, 3), Cells(Target.Row, "M").Resize(, 3)).Copy _
  Sheets("WaitList").Range("A" & Rows.Count).End(3)(2)

 

[EXCEL MAX]

Another option, if you want to copy on the target row and same columns as first sheet.
Put resized ranges addresses in the array and copy them one by one from there.

    vAreas = Array(Range("A" & Target.Row).Resize(, 3), _
                   Range("M" & Target.Row).Resize(, 3))
    For Each vArea In vAreas
        ActiveSheet.Range(vArea.Address).Copy _
        Sheets("WaitList").Range(vArea.Address)
    Next

 

[footoo]

With Sheets("WaitList")
    Dim r&: r = .Cells(Rows.Count, "A").End(3)(2).Row
    Cells(Target.Row, "A").Resize(, 3).Copy .Cells(r, "A")
    Cells(Target.Row, "M").Resize(, 3).Copy .Cells(r, "M")
End With

 

[Jennifer Van]

You can try using "Union" and "Resize".

Union(Cells(Target.Row, "A").Resize(, 3), Cells(Target.Row, "M").Resize(, 3)).Copy _
  Sheets("WaitList").Range("A" & Rows.Count).End(3)(2)

Thank you so much this worked

 

[EXCEL MAX]

I'm glad you found this as solution, but with all options,
including FooToo's code, you can do more tricks.