looping in filtered range by rows

Like this perhaps.

For Each ar In ActiveSheet.Range("$A$1:$A" & lrSource).SpecialCells(xlCellTypeVisible).Areas
    For Each rw In ar.Rows
        If rw.Value = "myvalue" Then' check for your value here
            ' do something
        End if
    Next rw
Next ar