Dim rng as Range, rng1 as Range
With worksheets(2)
set rng = .cells(rows.count,1).End(xlup).Offset(1,0)
End With

With worksheets(1).
set rng1 = .Range(.cells(1,3),.cells(rows.count,3).End(xlup))
End with

rng1.copy Destination:=rng
rng1.offset(0,4).copy Destination:=rng.offset(0,1)
rng1.offset(0,10).copy Destination:=rng.offset(0,2)


--
Regards,
Tom Ogilvy



"Troy" wrote in message
...
The Graveyard shift must be effecting my thinking. I forgot to relay all
the important data.

On sheet(1), the columns being used are C, G, & M, and the data needs to
be copied into Columns A, B, & C on sheet(2).

The data will be copied at the end of an exising range. This range will
need to be extended to cover the new data.

Does this make sense? I am so sleepy right now that I do not know if I am
getting all the info out.

Thank for your help.