**Problem:**

I need to drop rows that are not in my conditions.

**Code:**

Assume that all the values are initialized.

```
For ind = 2 To lrow
    reportProcess = Trim(LTrim(RTrim(ws.Range("G" & ind).Text)))
    If reportProcess = "Fulfillment - H/W Direct Customers (Operational)" Or reportProcess = "Revenue - Hardware" Then
        brand = "HW"
    ElseIf reportProcess = "Revenue - Software" Then
        ' ~~ Check Control Point Number
        subReportProcess = Mid(ws.Range("I" & ind).Text, 12, 3)
        If subReportProcess = "201" Or subReportProcess = "202" Or subReportProcess = "203" Or subReportProcess = "204" Or subReportProcess = "205" Then
             brand = "PBS"
        Else
             brand = "SWG"
        End If
    ElseIf reportProcess = "Revenue - GBS" Or reportProcess = "Revenue - GTS IS" Or reportProcess = "Fulfillment - Services(Operational)" Then
        brand = "PBS"
    ElseIf reportProcess = "Revenue - TSS" Then
        brand = "TSS"
    ElseIf reportProcess = "Accounts Receivable" Or reportProcess = "IBM Credit LLC - Accounts Receivable" Then
        brand = "AR"
    End If

    country = Trim(LTrim(RTrim(ws.Range("V" & ind).Text)))
    If country = "Taiwan" Then
        geo = "Taiwan"
    ElseIf country = "India" Then
        geo = "India"
    ElseIf country = "New Zealand" Or country = "Australia" Then
        geo = "ANZ"
    ElseIf country = "Hong Kong" Then
        geo = "Hong Kong"
    ElseIf country = "Philippines" Or country = "Malaysia" Or country = "Singapore" Or country = "Thailand" Or country = "Vietnam" Or country = "Indonesia" Then
        geo = "ASEAN"
    Else
    ' ~~ INSERT DELETE ROW HERE
    End If
    ws.Range("B" & ind) = geo
    ws.Range("A" & ind) = brand 
Next ind

```

**What I tried:**

`ActiveCell.EntireRow.Delete` - but this deletes all the rows

`Selection.EntireRow.Delete` - same result as above

How can I use the loop to delete specific row number?