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(x lup)(2)

--
Regards,
Tom Ogilvy


"Mark" wrote in message
om...
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