set sh = Activesheet
rw = Activecell.Row
With Worksheets("Report")
.Range("B9").Value = sh.Cells(rw,"A").Value
.Range("C11").Value = sh.Cells(rw,"B").Value
.Range("B3").Value = sh.Cells(rw,"C").Value
End with


--
Regards,
Tom Ogilvy


"MikeDDD" wrote in message
oups.com...
I would like to know the best way to copy specific cells from selected
row to specific cells on another work sheet. I have one worksheet that
I keep adding new data to each cell what I need to happen is what ever
cell I select I would like the cells in the selected row pasted into
other cells on another formatted worksheet. The formatted worksheet
cells are always the same the data will overwrite I just need it for a
printout. Any help would be much apprieciated.

Thanks,
Mike