Greetings! Thanks a million. After I fixed the range limits as follows, your
solution worked perfectly:

With ActiveSheet
.Range("A315:A999").Cut Range("A300")
.Range("C315:AE999").Cut Range("C300")
End With

--
May you have a most blessed evening!

Sincerely,

Michael Fitzpatrick


"JLGWhiz" wrote:

Forgot the dots.

With ActiveSheet
.Range("A315:A999").Cut Range("A300")
.Range("C315:C999").Cut Range("C300")
End With



"JLGWhiz" wrote in message
...
Use one line:

With ActiveSheet
Range("A315:A999").Cut Range("A300")
Range("C315:C999").Cut Range("C300")
End With


"MichaelDavid" wrote in message
...
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