Finding specific text in a column and deleting rows

[VKS]

How can i find a specific text in column A(Eg find AAAA in column A) and then delete all the rows including the row containing text plus one more row.
Best Regards/VKS

[xladept]

Hi VKS,

Is there any specific criterion for deleting the "one more row"? You can use the Find...FindNext function.

[VKS]

Hi VKS,

Is there any specific criterion for deleting the "one more row"? You can use the Find...FindNext function.

Reason is that next row is blank and i am trying to put aprox 10 lines from 50 sheets in one place

Best Regards/VKS

[MaczaQ]

try this

Sub deleteLoop()
    Dim result As Range
    Do
        Set result = Columns("A").Find("AAAA", lookat:=xlPart)
        If result Is Nothing Then
            Exit Do
        Else
           result.EntireRow.Resize(2).Delete
        End If
    Loop
End Sub

[VKS]

@MaczaQ: Thanks for your help. Its bit late in my part of the world will try your code tmow and let you know.
Thanks for your help and time.
Best Regards/VKS