Greetings! I was wondering if there is a shorter or a quicker way of
accomplishing
the following:

Range("A315:A999").Cut
Range("A300").Select
ActiveSheet.Paste
Range("C315:AE999").Cut
Range("C300").Select
ActiveSheet.Paste

I tried:
Range("A315:A999").Cut
Range("A300").Paste
Range("C315:AE999").Cut
Range("C300").Paste

but the error message I obtained upon execution said something about the
paste method not being supported here. Any help/advice will be greatly
appreciated.

May you have a blessed day.
--
May you have a most blessed day!

Sincerely,

Michael Fitzpatrick