Cannot move nonblank cells off the sheet

  • Thread starter Thread starter Jack Sheet
  • Start date Start date
J

Jack Sheet

On the final line of the following code I am getting run-time error 1004,
cannot move non-blank cells off the worksheet. I inserted the preceding
line in order to ensure that there ARE no nonblank cells to be shifted off.
It executes that (penultimate) line OK, but it still hangs on the final
line. There are no cell comments on the worksheet. Any ideas folks?
Thanks.

With .Worksheets("Summary")
.Range("FooterRow").Offset(1).Resize(65536 - _
.Range("FooterRow").Row).EntireRow.Delete shift:=xlUp
.Range("HeaderRow").Offset(1).EntireRow.Insert
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Copy to a mid column range Row 10 - Row 20 4
Dynamic Offset from an Application.Goto cell = Date or Time 10
Run two macros for two different sheets 11
Select Case Code does not run... 10
Excel VBA help: Text file formatting 19
Urgent 4
Error 1004 3
Run Time Error '1004' 1

Back
Top