Dataset: count and return if user has both R1 and R2

so I believe I need to build an array for the user names and the check the array for both X and X1, if the result is true, we can keep, if the result is false, delete the array (which I would hope would delete the contents in the excel document).

Any one know if I am on the right track even?

so I made this to delete those that are X1 but the problem is I don't want to delete X1 unless it matches the argument described above....

I would like the 'X1' to be filled with something that comes from an array or I would like to build into this something that would check column B, containing the R1 and R1. For instance if

for each unique in Column A
Column B contains R1 and R2
False = delete

Does this help anyone understand better? I am a clutz at VB



Sub Delete_Items()
Application.ScreenUpdating = False
Application.DisplayStatusBar = True

For Each ws In Sheets
ws.Activate


Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
If Range("A" & i).Value = "X1" Then Rows(i).Delete
Next i


Next ws
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub

I have attached an example of a spreadsheet and result I am looking for