Copy and paste Value and Format

[MrHockey]

Hello all, have an easy one today. I need to copy the value and format of a range of cells, is there a way to do this in one step rather this:

Set Block1 = Range(Cells(4, 2), Cells(20, 2)): Block1.Copy
Cells(4, 4).Select
Selection.PasteSpecial Paste:=xlPasteValues
Set Block1 = Range(Cells(4, 2), Cells(20, 2)): Block1.Copy
Cells(4, 4).Select
Selection.PasteSpecial Paste:=xlPasteFormats

Thanks for your help everyone.