Refined...

[buntykins]

Thanks for the help with the previous query, but can anyone help me with this one? I need it to search through a sheet and every time it finds "Operator:" in a cell I need it to delete the 6 rows ABOVE it. There will be multiple occurences so I need it to loop until the sheet is clean

If it helps, it will only appear in Column A but it could be any number of times

Janie

 

[AJ]

Change two lines of my last post from...

Rows(ActiveCell.Row & ":" & ActiveCell.Row).Delete Shift:=xlUp
LastRow = LastRow - 1

To...

Rows(ActiveCell.Row - 7 & ":" & ActiveCell.Row - 1).Delete Shift:=xlUp
LastRow = LastRow - 6

Should do the job.

Rgds]
AJ

 

[buntykins]

Thanks AJ

xx