Excel VBA从一个工作表复制到一个新的，同时保持格式和值

我试图从一个工作表复制一个表到运行macros时创build一个新的，同时保持数据格式和单元格格式。 我已经使用了下面的代码，将从工作表复制到指定的代码，并保持大部分格式与单元格高度和宽度分开。

任何帮助将不胜感激。

Sheets("Sheet1").Range("A1:B10").Copy Destination:=Sheets("Sheet2").Range("E1") 

Answer 1

 Sheets("Sheet1").Range("A1:B10").Copy With Sheets("Sheet2").Range("E1") .PasteSpecial xlPasteFormats .PasteSpecial xlPasteValues End With