Eliminare tutte le tabelle tranne una

[nman]

...... quindi anche se eseguo codice alla fine mi ritrovo tabelle inutili in giro. ......

Potresti fare un ciclo su tutte le tabelle escludendo le tabelle di sistema (nome che inizia con MSys) e la tua "Tabella1"

Tutte le tabelle le trovi nella "collezione" TableDefs

Private Sub EliminaTabelle()
Dim DBx As DAO.Database
Set DBx = DBEngine(0)(0)

Dim tbx As DAO.TableDef

For Each tbx In DBx.TableDefs
    On Error Resume Next
        If Left(tbx.Name, 4) <> "MSys" And tbx.Name <> "tabella1" Then
            DoCmd.DeleteObject acTable, tbx.Name
        End If
    On Error GoTo 0
Next

End Sub

NB: il "On Error Resume Next" lo ho messo perché in caso di
clik ripetuto sullo stesso pulsante andresti a un errore
in quanto tenta di eliminare una tabella inesistente
..... Il TableDefs si aggiorna alla prossima apertura del DB

Facci sapere

.