Copy rows to different worksheet destinations

[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

 

[Tom Ogilvy]

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)