Macro to delete entire rows if column d equals 2925-6 & abc

**Triscia** · 05-14-2015, 06:49 AM

I received the following macro to delete rows if column D contains 2923-3, but when I run it, it deletes the first row, which is the column header.
Sub Triscia()
Range("D1:D" & Range("D" & Rows.Count).End(3).Row).AutoFilter 1, "2923-3", xlAnd, "other"
Range("D1:D" & Range("D" & Rows.Count).End(3).Row).SpecialCells(12).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub

I have one macro that does about 10 different things, this is the 4 step that needs to be run. Can anyone assist me with this? My worksheet is call All POs back to 2.9.15 and I have each task ending with End With. TIA!

**TMS** · 05-14-2015, 07:01 AM

Have you tried changing D1 to D2 in the first two lines of code? Or, thinking about it, maybe just the second line. Try just the second line

Regards, TMS

**Triscia** · 05-14-2015, 07:14 AM

Yes, I did change that to a 2, but it still didn't delete the rows. It is strange. I wondered if maybe it was the beginning of the marco since I have about 10 steps that it does. I just looked at my macro and it has a 2 in both lines. I changed the second line only to a 2 and it still didn't work. It always deletes the first header line. I am puzzled. Do you have any other suggestions?

**vcoolio** · 05-14-2015, 07:23 AM

Hello Triscia,

Further to what TMS said above, try this subtle change to the code:-

Please Login or Register  to view this content.

Cheerio,
vcoolio

**Triscia** · 05-14-2015, 07:31 AM

That worked, but is there any way to tell it not to delete the first row, which is the header row? Thanks!

**vcoolio** · 05-14-2015, 07:50 AM

Hello Triscia,

If you take the code out into its own work book to test it (as per the attached), you'll see that it works and the Headings stay put. This would suggest that there is something going on elsewhere in the rest of your code which is affecting this part of it.

Change some of the fictitious data in Column D in the test work book to your numeric value to see how it works.

Cheerio,
vcoolio.