[VBA] Εξαγωγή ενός μόνο φύλλου εργασίας

[caudillo]

Καλησπέρα σε όλο το forum.
Έχω ξεκινήσει ένα νέο project στο Excel για το σχολείο μου, το οποίο προχωρά αρκετά ικανοποιητικά. Έφτασα σε ένα σημείο όπου θεωρώ ότι, για να διευκολυνθούν οι χρήστες του αρχείου, είναι χρήσιμο να μπορούν να εξάγουν το ενεργό φύλλο εργασίας και να το αποθηκεύουν ως ξεχωριστό αρχείο.
Το αρχικό αρχείο - το οποίο περιλαμβάνει πολλά φύλλα - είναι αρχείο με δυνατότητα μακροεντολών. Το νέο αρχείο που θα δημιουργείται με την χρήση κώδικα VBA, θα ήθελα να μην έχει δυνατότητα μακροεντολών, αλλά να είναι της μορφής .xlsx.
Το πρόβλημά μου είναι ότι οι γνώσεις μου σε VBA είναι σε νηπιακό στάδιο. Έψαξα στο internet και βρήκα διάφορα παραδείγματα κώδικα αλλά σε όλα δεν γινόταν αυτό που ζητούσα ή/και έβγαιναν διάφορα μηνύματα λάθους.
Λόγω προσωπικών στοιχείων στο αρχικό αρχείο δεν μπορώ να ανεβάσω κάποιο δείγμα. Ελπίζω να ήμουν κατανοητός σχετικά με το τι θέλω να γίνει.
Ελπίζω κάποιος να μπορέσει να με βοηθήσει, καθώς πιστεύω ότι, αν καταφέρω να το τελειώσω - με την βοήθειά σας - θα εξοικονομήσει χρόνο και κόπο από πολλούς συναδέλφους.
Ευχαριστώ πολύ για το χρόνο σας.

[caudillo]

Την καλησπέρα μου σε όλους.
Συνεχίζοντας το ψάξιμο μέσω internet βρήκα - και προσπάθησα να προσαρμόσω - τον παρακάτω κώδικα για να πετύχω αυτό που θέλω:

Private Sub CommandButton2_Click()
Dim path As String
Dim invno As String
Dim fname As String

path = "C:\Users\Κώστας\Desktop"
invno = Range("C11")
fname = invno & " - " & Range("A1")

Application.DisplayAlerts = False

ActiveWorksheet.Copy
ActiveSheet.Shapes("CommandButton2").Delete

With ActiveWorksheet
.SaveAs Filename:=path & fname, FileFormat:=51
.Close
End With

ThisWorkbook.Save

Application.DisplayAlerts = True

End Sub

Ότι προσαρμογές όμως κι αν προσπάθησα να κάνω, έπαιρνα πάντα διάφορα μηνύματα λάθους, πχ. run-time error 5, run-time error 424 κ.λ.π.
Μήπως έχει κάποιος να προτείνει κάτι;
Ευχαριστώ.

[pierta]

Καλησπέρα,

Προσωπικά όταν θέλω να εξάγω ένα φύλλο δημιουργώ ένα αντίγραφό του και εξάγω το αντίγραφο.
Στο συνημμένο έχω δυο φύλλα (αυθεντικό, αντίγραφο)
Καταχωρώ τα δεδομένα μου στο αυθεντικό, τα "τραβάω" στο αντίγραφο και εξάγω το αντίγραφο.
Μετά με μια μακροεντολή κάνω απαλοιφή (clear) τα σταοιχεία που δεν χρειάζομαι από το αυθεντικό. Στο συνημμένο δεν έχω εντολή clear.
Δες το αρχείο αν σε βοηθάει.