Frustrated VB newbie here.

[ultratch47]

i have a report (4000 rows) the top half (~2000) rows is designated as one report and the bottom, is another. They are seperate by a blank row. I have a code that will delete the bottom half and keep the top on the existing sheet.
my current code is this:
"keep top of report
Range(Range("E2").End(xlDown).Offset(1, 0), Range("E65536").End(xlUp)).EntireRow.Delete

however, i want it to seperate the two reports (neither is static) using that blank line.
keep the top report on the current page and cut/paste the bottom to a new sheet.

thanks for any help.

 

[Andrew Poulsom]

Instead of using Delete use Cut with a Destination argument, eg:

Range(Range("E2").End(xlDown).Offset(1, 0), Range("E65536").End(xlUp)).EntireRow.Cut Worksheets("Sheet2").Range("A1")