Table Name Or Number For Current Worksheet

Does anyone know the VB syntax for obtaining a table name or number on an existing worksheet? I'm using Excel 2007 and have a worksheet that is one large table. I have a macro which copies the worksheet to a new sheet, converts the table to a range and then edits out the elements I don't require (my macro won't strip out information I don't require if it's still a table, which is why it's converted to a range). However, every time I copy the sheet, the table number increments by one.

For example: Unitlist is the original table name. When I copy the worksheet, the table on the copied sheet becomes Unitlist1. If I delete the sheet and copy it again, the table becomes Unitlist2 etc. etc. In order to get around this, I need to be able to reference the name of the table on the copied sheet and then use that reference to convert the table to a range. I can convert the table to a range using:

ActiveSheet.ListObjects("Unitlist1").Unlist

However, I need an automated way to obtain the table name. I've attached a copy of my macro for further reference.

Sub CopySheetDeleteData()
Dim c As Range
Dim i As Long
With Application
.Calculation = xlCalculationManual
. ScreenUpdating = False
Sheets("Units").Copy After:=Sheets("Units")
' rename the sheet
Sheets("Units (2)").Name = "ExportUnits"......................