[Spirosgr]

Καλησπέρα
Αγαπητέ Μάνο,
Επειδή προφανώς, η λύση θα είναι με κώδικα,
οι πληροφορίες που δίνεις, δεν είναι αρκετές, για να έχουμε σαφή άποψη για το ζητούμενο.
Για παράδειγμα:
Οι πίνακες που αναφέρεις, είναι πραγματικοί πίνακες ή περιοχές;
Σε ποιο σημείο ακριβώς, θα αποθηκεύονται τα αρχεία που θα δημιουργηθούν;
Με ποιο όνομα;
Τι είδους αρχείο θα δημιουργηθεί; (πχ. .xls, .xlsx κλπ)

Σε κάθε περίπτωση ο πιο κάτω γενικός κώδικας,

Sub ReCreateTblNewWb()
    Dim FName As String
    Dim i As Integer

    For i = 1 To Sheet1.ListObjects.Count

        Range("Table" & i & "[#All]").Copy
        Workbooks.Add
        ActiveSheet.Paste
        FName = "testBook" & i
        ActiveWorkbook.SaveAs Filename:=FName & ".xlsx"
        ActiveWindow.Close
        
    Next i
End Sub

δημιουργεί, τόσα αρχεία .xlsx στην επιφάνεια εργασίας, όσοι και οι πίνακες που υπάρχουν, στο Sheet1 του μητρικού βιβλίου.
Το όνομα του νέου αρχείου είναι testBook + ο αριθμός του πίνακα που έχει αντιγραφεί σε αυτό.
Στα νέα αρχεία, κάθε πίνακας, έχει επικολληθεί στο κελί a1.

Οι πίνακες, είναι πραγματικοί πίνακες (ListObjects) και
οι διαστάσεις τους είναι, χ στήλες, ψ γραμμές (αδιάφορο).
Οι πίνακες, πρέπει να έχουν ονομασίες Table1, Table2, Table3, και
η θέση τους μέσα στο φύλλο μπορεί να είναι οπουδήποτε.