Werkblad opslaan in nieuw bestand

[Vendeburk]

Ik ben opzoek naar een macro voor het volgende:

Ik zou graag een werkblad in een apart bestand willen opslaan.

Het gaat om tabblad "Samenvatting"
Hiervan wil ik alleen de waarde kopieren.

de locatie staat in cel D25 van tabblad "Algemeen"
En de naam van het bestand in cel D24

Graag zou ik in het nieuwe bestand opgemaakt willen hebben als volgt.
Kolom A als tekst
Kolom B als datum (DD-MM-JJ)
Kolom E als tijd (UU-MM-SS)

Ik heb al wat kunnen vinden, maar ik kom er nog niet geheel uit;

 Sub ProgrammaOpslaan()
Sheets("Algemeen").Select
Application.DisplayAlerts = False
Dim Pathb As String
Dim FileNameb As String
      Pathb = Range("D25")
      FileNameb = Range("D24")
Sheets("Samenvatting").Select
  ActiveWorkbook.SaveAs FileName:= _
  Pathb & FileNameb, FileFormat:=xlOpenXMLWorkbookMacroEnabled
  ReadOnlyRecommended:=False, CreateBackup:=False

Bekijk bijlage Verkoop gegevens.xlsxBekijk bijlage Verkoop gegevens.xlsx

 

[VenA]

Gebruik geen samengevoegde cellen in combinatie met VBA of beter helemaal niet. Waarom moet het als xlOpenXMLWorkbookMacroEnabled opgeslagen worden als geen macro's instaan? In het voorbeeld staat de opmaak al goed dus wat hier de bedoeling van is, is mij niet geheel duidelijk.

Sub VenA()
c00 = Sheets("Algemeen").Range("D25") & "\" & Sheets("Algemeen").Range("D24") & ".xlsm"
  Sheets("Samenvatting").Copy
  ActiveWorkbook.SaveAs c00, xlOpenXMLWorkbookMacroEnabled
End Sub