Removing Duplicates in a Table

Try this:
This will keep the number of rows the same as before removing the duplicates.

Sub removeDuplicates_FZ()
Dim ws As Worksheet
Dim tb1 As ListObject
Set ws = ActiveSheet
Set tb1 = ws.ListObjects("Table2")
    x = tb1.Range.Rows.count
    tb1.Range.RemoveDuplicates Columns:=1, Header:=xlYes
    tb1.Resize tb1.Range.Resize(x)

End Sub