Solved: delete unwanted data

[Pete]

see attached workbook.
Hi

Need a macro that will find Wonderwall (in Caps) then find the second heading of wonderwall whatever row it is in column B current it's in row 26.

Then find the last task against wonderwall in our case row 43. And then delete/remove all data from that point onwards downwards.

[Bob Phillips]

If you only look for two, then you will delete valid data because there is also that text in row 24.

[Pete]

Hi xld.

thanks for spotting the mistake. OK correction. Can we find in column A RBS_CNY_9530 - 5559

and delete one after this point using this as a unique key.....ignoring column b altogether...

As RBS_CNY_9530 - 5559 will always be the last id........in this table.

[Bob Phillips]

Why not just delete everything after the last complete entry in column A?

[Pete]

Why not just delete everything after the last complete entry in column A? that would also work - sir.

i am happy with this method....

[Bob Phillips]

Public Sub ProcessData()
Dim LastRow As Long
Dim LastRow2 As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
LastRow2 = .Cells(.Rows.Count, "B").End(xlUp).Row
.Rows(LastRow + 1).Resize(LastRow2 - LastRow).Delete
End With

End Sub

[Pete]

works prefectly sir....

thanks for the excellent feedback