For the whole col
sub copywholecols()
with sheets("sheet4")
.columns("h").value=sheets("sheet3").columns("a"). value
.columns("k").value=sheets("sheet3").columns("b"). value
end with
end sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Sinner" wrote in message
...
Hi,

I have some data in sheet3.
In sheet4, I want to do the following:

Example:
- columnA of sheet3 values in columnH sheet4
- columnB of sheet3 values in columnK sheet4
and so on. I have almost 21 columns to re-arrange to get the report
that I want.

I have done that with simple = cell in sheet4 for sheet3 but since
data range in sheet3 varies so I have to update sheet4 cells.

Also the calculation time slow.

Some code in back ground can be useful.

Any help is appreciate.