There are a number of ways to do this.

But first we need to know how you determine what cell(s) to copy and how
you determine where they go.

simple examples are
[Note that there is no selecting, and the destination range can be a single
cell]

Sheets("Sheet1").Range("A1:D9").Copy _
Destination:= Sheets("Sheet2").Range("M1")

Selection.Copy_
Destination:= Sheets("Sheet2").Range("M1")

another is
Sheets("Sheet2").Range("M1:P9")=Sheets("Sheet1").R ange("A1:D9")
or
Sheets("Sheet2").Range("M1:P9").Value=Sheets("Shee t1").Range("A1:D9").Value

--
steveB

Remove "AYN" from email to respond
"Colin2u" wrote in message
...
I am trying to automatically extract a single or multiple cell(s) (data)
from
one worksheet to another worksheet within the same workbook. can that be
done
and if so, how?