VBA to search for specific string and delete range

Hi all

For the attached example sheet, I need some simple VBA to search for every time "Title 1" appears (EXCLUDING the first time), and delete the row + 5 rows down.

Meaning that in the attached sheet, EntireRow.Delete applies to A29:A34, A71:A76, and so on. The placement of "Title 1" are variable from project to project, but they ALWAYS come in the same pattern of 6 rows :-)

Things that should remain in the attached sheet should only be Range("1:6") and all the data numbers.

I hope you guys are able to help :-) Thank you very much!

How about

Please Login or Register  to view this content.

Originally Posted by Fluff13

How about

Please Login or Register  to view this content.

Works like a charm - thank you so much!!! :-)

I know this wasn't a part of the original question - but are there any way to include a string of code to apply "BorderAround" to all the data values (excluding Range("1:6")?

How about

Please Login or Register  to view this content.

According to the attachment as a VBA beginner starter :

PHP Code: 

Sub Demo1()
        Dim Rg As Range
        Set Rg = [A6].End(xlDown)(0)
    While Not IsEmpty(Rg(2))
        Rows(Rg(2).Row).Resize(6).Delete
        Set Rg = Rg.End(xlDown)(0)
    Wend
    With [A5].CurrentRegion
        .Range("B3").Resize(.Rows.Count - 2, .Columns.Count - 1).BorderAround , xlThin
    End With
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄