Macro For Multiple Delete Functions

[asivaprakash]

I have worked this below macro and was succesful in one out come but the others are not working

1 Delete 2861 from store
2 Delete DXJ8934\MXA8484\RCF959 from Processor
3 Delete + values(amt) in PLUS (cardtype)

The below code works for Delete 2861 from store.The other two need to be in the same shee and start working once option 1 finishes then option 2 should kick in then option 3.Can any one help
Sub Loop_Delete_Macro()

Dim Counter As Integer
Dim Todelete As String
Dim NoIterations As Integer

'DEFINE VALUE TO DELETE
Todelete = 2861

'DEFINE NUMBER OF ITERATIONS (IE HOW MANY ROWS YOU HAVE IN TOTAL)
NoIterations = 15000

Counter = 0

Do While Counter < NoIterations

If ActiveCell.Value = Todelete Then

Selection.EntireRow.Delete

Else: ActiveCell.Offset(1, 0).Activate

End If
Counter = Counter + 1

Loop

End Sub

https://hotfile.com/dl/224531363/f32ec0c/123.xlsm.html

This is the sample data I have added the comments on it as well.Can any one help

 

[hiker95]

asivaprakash,

Welcome to the MrExcel forum.

When I tried to download/open your attached workbook I received a message concerning malicious content.

 

[asivaprakash]

https://hotfile.com/dl/224531363/f32ec0c/123.xlsm.html

May be its because its a macro file i have readded it let me know

 

[hiker95]

asivaprakash,

The same thing happened.

Click on the Reply to Thread button, and just put the word BUMP in the post. Then, click on the Post Quick Reply button, and someone else will assist you.