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