Copy from here to there

[Francis Hookham]

Mind's gone blank!

Range("B4:B45").Select
Selection.Copy
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Not done recently and cannot remeber how to do it directly something like
this
Range(Cells(4, 6), Cells(45, 6)) = Range(Cells(4, 2), Cells(45, 2))
which of course does not work
and, anyway, I want Values only copied across

Help please

Francis Hookham

 

[Francis Hookham]

Many thanks Garry's Student

Any reason why I should not simplify it to:

Range(Cells(4, 2), Cells(45, 2)).Copy
Range(Cells(4, 6), Cells(45, 6)).PasteSpecial xlPasteValues

which works.

I had hoped for something whch did not go and copy and then paste - surely I
have seen/used in the past something like 'CopyDestination', as in
Range(Cells(4, 2), Cells(45, 2)).CopyDestination = Range(Cells(4, 6),
Cells(45, 6))

(bear in mind that Range(Cells(4, 2), Cells(45, 2)) contains '=Present!R'
collecting data from another worksheet which is why PasteSpecial
xlPasteValues is needed.

Am I expecting too much?

Francis Hookham

 

[Francis Hookham]

Actually
Range(Cells(4, 2), Cells(48, 2)).Copy
Cells(4, 6).PasteSpecial xlPasteValues
is more economical

FH