copy paste with formatting bypassing clipboard

hi
i started to use this method of copy paste

Selection.Copy Destination:=Workbooks(SupplierKPIFile).Sheets("By State By Dept").Range("A4")

rather than

Selection.Copy
Workbooks(KPIFile).Activate
Range("A701").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

the "copy Destination:=" doesnt keep the formatting. is there a way this can be done?

i want to bypass clipboard for speed, as there is alot of copying and pasting between the source data and templates

thanks

the first code doesnt copy formatting across. ie if its $130, then it only copies across as 130
if its 17.3% it only copies across as .173

i want to use this code method, but keep formatting

Selection.Copy Destination:=Workbooks(another_file).Sheets("Sheet1").Range("A4")