簡単なTABLEのカウント（重複データを除いた）

VBAのTABLE内、重複データを除いた件数を計算します。

ソースは以下です。
menber2()テーブル内に重複したデータが存在したら””（ブランク）にします。
------------------------------------------------------------------------------
      work_i = mem_cnt2
        For i = 1 To mem_cnt2
            For j = 1 To mem_cnt2
                If i = j Then
                Else
                
                    If member2(i) = member2(j) Then
                        If member2(i) = "" And member2(j) = "" Then
                        Else
                            work_i = work_i - 1
                            member2(j) = ""
                        End If
                    End If
                End If
            Next j
        Next i
        mem_cnt2 = work_i
        
        Cells(30, 1) = mem_cnt2