Hi jsatekm
If the following does not work for you, it is because you have some important detail that you have not described but that is relevant for the purposes of this filtering.

In this case, you should upload your sample workbook to the Forum to see what happens:

PHP Code: 
Sub Macro8()
Cells(1).CurrentRegion.Resize(, 2).Offset(1).ClearContents
With Sheets("BRANDY")
  [a3] = "=" & .[id4].Address(0, 0, external:=True) & ">0"
  .Range("IB3,ID3").Copy [a4]: .Range("IB3").AutoFilter
  .Range("IB3", .Cells(Rows.Count, "ID").End(xlUp)).AdvancedFilter 2, Range("A2:A3"), Range("A4:B4"), False
End With
Range("A2:B4").Delete xlShiftUp
End Sub