Hide all of "X" in column A by multi condition in B?

[aaron84]

Hello Turbo Noob here, I have a sheet that has 70k rows. I have multiple rows of the same number in column A together sorted in ascending. Row 1-20 will all be number 50 in A. And numbers 1-7 randomly in column D for rows 1-20. What i'm hoping to achieve is, if column d shows 1-5 then hide all the the associated number in column A. if D only shows 6 or 7 then leave. Is this possible as sorting through the whole thing manually would take eternity

 

[ranman256]

Public Sub HideRows()
Range("A2").Select
While ActiveCell.Value <> ""
      Select Case ActiveCell.Offset(0, 3).Value   'col D
         Case 1, 2, 3, 4, 5
             Rows(ActiveCell.Row & ":" & ActiveCell.Row).EntireRow.Hidden = True
      End Select
   
   ActiveCell.Offset(1, 0).Select   'next row
Wend
End Sub