Reusing /copying Macros from a file to another file - excel

Question

I have an issue where I take data from multiple files and copy it into my current file. I work with the data and now I need to create a new File that contains the macros and the "style" from one of the import files and the new data I created.
So basically I take a file, delete all data from it. Then take my data and paste it into the file. Later I save the combinations of macros from old file and new data into a new file with which is created with the name "save as dialog."
So far I have a working import for all of the files and also my work on the data is doing great. Only this export is missing.
My idea would be to make the Path of the file public during the import and then during the import file use this path to do the following:
copy this file,
delete all data besides the macros and buttons
copy my data into it.
open the "save as dialog and let the user choose a name and the location where to save it.
However, I have absolutely no idea how something like this could be done in terms of code. Some code examples with explanations would be all I need I hope that I can then tailor it to fit my needs.
This is the code I tried so far but it's just a regular "save my current file" that doesn't include any macros from another file or takes another file as basis.
Sub DateiSpeichern()
Dim StandardPfad As String
Dim ExportBlatt As Worksheet
Dim NeueDatei As Workbook
StandardPfad = "C:\X"
Set NeueDatei = Workbooks.Add
ThisWorkbook.Sheets("Test").Copy Before:=NeueDatei.Sheets(1)
Application.DisplayAlerts = False
Sheets(2).Delete
Application.DisplayAlerts = True
'displays the save file dialog
StandardPfad = Application.GetSaveAsFilename(FileFilter:= _
"Exceldateien (*.xlsx), *.xlsx", Title:="Datei speichern", _
InitialFileName:="")
NeueDatei.SaveCopyAs Filename:=StandardPfad
NeueDatei.Close savechanges:=False
End Sub
Hello,
here is my first attempt of coding it. It doesnt work but i hope I got atleast the right idea.
Sub DateiSpeichern()
Dim StandardPfad As String
Dim ExportBlatt As Worksheet
Dim NeueDatei As Workbook
Dim VorlagenDatei As Workbook
'Sets a default directory
StandardPfad = "C:\Test"
'opens the dialog to choose the template file.
Set VorlagenDatei = Workbooks.Open(StandardPfad)
StandardPfad = Application.GetSaveAsFilename(FileFilter:= _
"Exceldateien (*.xlsx), *.xlsx", Title:="Datei speichern", _
InitialFileName:="")
'copies the selected file (something is wrong here i would assume)
VorlagenDatei.SaveCopyAs Filename:=StandardPfad
'copies my worksheet (Test) into the newly generated (copied) file. Here I need to somehow specifie the range where it is copied to.
ThisWorkbook.Sheets("Tires").Copy Before:=NeueDatei.Sheets(1)