GOT IT!

Dim oRg_columns As Range
Dim oLO_table As ListObject
DIM rgT as Range

Set oRg_columns = oWs.Columns("D:E")
oRg_columns.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Set oLO_table = oWs.ListObjects(TABLE_ACTUALS)

For Each rtT In oLO_table.Range.SpecialCells(xlCellTypeVisible).Ro ws
MsgBox "row " & rt.row & ", " & rtT.cells(rtT.row, 3)
Next