In diesem Beispiel wird der Bereich A1:G37 in Sheet1 ausgeschnitten und in der Zwischenablage abgelegt.
Worksheets("Sheet1").Range("A1:G37").Cut