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" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>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
>
|