VBA - Count filtered rows in the table

[sandy666]

            total = Table.RowCount(TPH),
            name = Text.From(Table.RowCount(TPH)-Table.RowCount(TSR))&" Left / Filtered "&Text.From(Table.RowCount(TSR)),
            region = Text.From(Table.RowCount(TPH)-Table.RowCount(TSR)-Table.RowCount(TSR1))&" Left / Filtered "&Text.From(Table.RowCount(TSR1)),
            country = Text.From(Table.RowCount(TPH)-Table.RowCount(TSR)-Table.RowCount(TSR1)-Table.RowCount(TSR2))&" Left / Filtered "&Text.From(Table.RowCount(TSR2))

total
total-filtered1
total-filtered1-filtered2
total-filtered1-filtered2-filtered3