参考元：【VBA】形式を選択して貼り付ける方法【PasteSpecialを使う】
https://daitaideit.com/vba-pastespecial/
VBAで形式を選択して貼り付ける
PasteSpecialを使う
形式を選択して貼り付ける、PasteSpecialは、次のように入力して使います。
「セル.PasteSpecial Paste:=形式」
形式には、次のような形式があります。
すべて（xlPasteAll）
数式（xlPasteFormulas）
値（xlPasteValues）
書式（xlPasteFormats）
コメントとメモ（xlPasteComments）
入力規則（xlPasteValidation）
コピー元のテーマを使用してすべて貼り付け（xlPasteAllUsingSourceTheme）
罫線を除くすべて（xlPasteAllExceptBorders）
列幅（xlPasteColumnWidths）
数式と数値の書式（xlPasteFormulasAndNumberFormats）
値と数値の書式（xlPasteValuesAndNumberFormats）
すべての結合されている条件付き書式（xlPasteAllMergingConditionalFormats）
また、次のように「Transpose」を使うことで、貼り付ける値を「転置」することができます。
「セル.PasteSpecial Paste:=形式, Transpose:=True」
では、それぞれの形式で貼り付けてみましょう。
形式を「すべて」で貼り付けてみます。
引数には、「Paste:=xlPasteAll」を使います。
Sub TEST1()
'コピー
Range("A1").CurrentRegion.Copy
'すべて
Range("D1").PasteSpecial Paste:=xlPasteAll
End Sub
