Macro to delete rows

[psychson]

I recorded a macro to delete some rows that are headers and subtotals and merged at the same time. It worked, but when I need to use it again will not work because the rows have changed. Every time I export the database to excel those subtotals and merged rows are in different row numbers.
How can I have a macro to delete those rows when they change all the time?
I'm attaching a sample of my excel and I need to delete every single row that is shaded and merged that has a header and subtotal and leave only the data in the other cells.
Is it possible ?

Thanksbook.GIF

[JBeaucaire]

You posted a picture, not a workbook. Post an actual workbook with two sheets in it, a BEFORE and an AFTER so we can see exactly what you're trying to accomplish. I think I understand, but people's workbooks often reveal extra problems.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

[psychson]

Thanks for replying.
I thought the picture would give an idea.
I'm attaching the excel.
In ORIGINAL worksheet is the data I import and in the FINAL is what I want to have to be able to manipulate without having to delete all those merged/subtotal/headers rows all the time.
I hope it helps.

[JBeaucaire]

This should do it, it applies a filter to the data and leaves only rows showing that are "blank" in column B. Then it deletes all visible rows.

Please Login or Register  to view this content.

[psychson]

Thanks, but somehow it did not worked as I thought.
I used it with my real data and not the worksheet sample I attached, which is basically the same, but more than 5000 rows.
It gave me an error:
RUN-TIME ERROR 40036
APPLICATION-DEFINED OR
OBJECT-DEFINED ERROR
When I click DEBUG takes me to the Code and Highlights: AutoFilterMode = False

If I run in the Sample I sent you I get error:
RUN TIME ERROR 1004
DELETE METHOD OF RANGE CLASS FAILED
When I click DEBUG takes me to the Code and Highlights:Range("A2:A" & LR).EntireRow.Delete xlShiftUp

[JBeaucaire]

I can test on whatever data you provide.