Excel VBA Макросы. Как перенести значения из нескольких ячеек с формулами в другие ячейки?

[Посетитель]

Как будет выглядеть макрос для переноса значений из нескольких ячеек с формулами, например из ячеек диапазона A1:C5 Листа 1 в ячейки диапазона B2:D6 Листа 2?

[Администратор]

Sub Макрос()
   
    Worksheets("Лист1").Range("A1:C5").Copy
    Worksheets("Лист2").Range("B2:B6").PasteSpecial xlPasteFormulas
    Application.CutCopyMode = False
   
End Sub