Macro to Delete Duplicate Headers from Row 4 Onwards

[howard]

I have written code to delete rows from row 4 onwards where "Vin" appears in Col B

When running the macro, none on the rows from Row 4 in delete where "Vin" appears in B4 onards

 Sub Remove_Duplicate_Headers()

 With Sheets("Stock Detail")
.Range("B4").AutoFilter 1, "Vin*"
.AutoFilter.Range.Offset(1).EntireRow.Delete
.AutoFilterMode = False

End With

End Sub

It would be appreciated if someone could amend my code

 

[LazyBug]

Hello!
Could you post example of your data on a sheet?

 

[MARK858]

@howard, your question isn't 100% clear but if you are saying that you want items in row 4 deleted then just to point out that Autofilter requiress a header row, if you need it to delete the items in row 4 then you need to apply the filter to B3.

 

[howard]

Hi Guys

Please see link below

What I am trying to do is to remove all rows from row 4 onwards where 'Vin" appears in Col B in the example row 11,16 & 20

Delete Vin Numbers.xlsx

Shared with Dropbox

www.dropbox.com

 

[MARK858]

I don't know why you want it from row 4 (I have done the code below for row 4) when the data starts in row 2 and your sheet name is different in the file (amend if needed).
The reason it wasn't working was the blank rows that you had

Sub Remove_Duplicate_Headers()

    With Sheets("Sheet1")
        .Range("B3:B" & .Range("B" & Rows.Count).End(xlUp).Row).AutoFilter 1, "Vin*"
        .AutoFilter.Range.Offset(1).EntireRow.Delete
        .AutoFilterMode = False
    End With

End Sub

 

[howard]

Thanks for the help & your input. Have been through your code and It makes perfect sense