Find the word in Column A

[Abhijeet]

Hi

I have data from that i want to find word KEY after find this word then below 14 rows i want to delete & this word in same column A more than 300 times so below this word 14 rows i want to delete can u please tell me how to do this

 

[Abhijeet]

I tried to do this find the word Key then delete that row but i want next 14 rows also delete so please tell me how to do this

 

[Marc L]

Hi !

Demonstration to paste to worksheet module :​

Sub Demo()
             Dim Rg As Range
    With Me.UsedRange.Columns(1)
             Set Rg = .Find("Key", , xlValues, xlWhole)
        Do Until Rg Is Nothing
                 Rg.Resize(15).EntireRow.Delete
             Set Rg = .FindNext
        Loop
    End With
End Sub

Do you like it ? So thanks to click on bottom right Like !
​

 

[Abhijeet]

Thanks Marc L its work perfect

actually i have 200 files more than 1 sheet this type of data
i have consolidate files in One workbook then delete is this ok or shall i delete each file please tell me

 

[Marc L]

It depends on data, how many to delete …

I prefer to consolidate only desired data than all and delete undesired …
​