Copy rows to different worksheet destinations

  • Thread starter Thread starter Mark
  • Start date Start date
M

Mark

Hi,

Is there a way to copy a certain colums from a row and place them in
another worksheet?

The columns that are copied will remain constant but the row
destination will vary. The worksheet where I want them to end up will
depend on a 3 digit number that is entered in the original row.

Thank you.

Mark
 
Dim rng as range
set rng = Intersect(Selection.EntireRow, Range("A:A,E:E,G:J"))
rng.copy worksheets(rng(1).value).Cells(rows.count,1).End(xlup)(2)
 
Back
Top