Gini gan,
asumsi saya nama file & extensi rekapan tokonya : "REKAPAN TOKO.xlsm"
lalu untuk coding yg ada di sheet master (command button1:untuk printing) :
Private Sub CommandButton1_Click()
Call appRunner
End Sub
dan untuk yg dimodule nya :
Sub appRunner()
Dim B, C, D, E, FileName, lstrow, Path As String
Application.DisplayAlerts = False
Path = "F:\UD.ANANTO\FAKTUR PENJUALAN\"
FileName = Range("J7").Value & ".xls" 'Change extension here
B = Range("J7").Value ' nama toko - silahkan disesuaikan stringnya : bebas
C = Range("M39").Value ' Total Pembelian - silahkan disesuaikan stringnya : bebas
D = Range("M40").Value ' Potongan pembelian - silahkan disesuaikan stringnya : bebas
E = Range("M41").Value ' Total yg dibayar - silahkan disesuaikan stringnya : bebas
ActiveWorkbook.SaveAs Path & FileName, xlOpenXMLWorkbookMacroEnabled
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
'======================================>> additional coding to export data into 'Rekapan Toko'
Range("A1").Select
Windows("REKAPAN TOKO.xlsm").Activate 'change as your own filename
Sheets("Sheet1").Select '#if you want to focus on defined sheet
Range("A1").Select
lstrow = Range("B1:B9999").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
MsgBox "lstrow : " & lstrow
MsgBox "C : " & C
Range("B" & lstrow).Select
Range("B" & lstrow).Value = B
Range("C" & lstrow).Value = C
Range("D" & lstrow).Value = D
Range("E" & lstrow).Value = E
Workbooks.Open FileName:="F:\UD.ANANTO\FORMULIR FAKTUR PANJANG.xlsm"
Workbooks(Range("J7").Value & ".xls").Close savechanges:=True
'<<===========================================end for rekapan toko
REKAPAN TOKO.xlsm
FORMULIR FAKTUR PANJANG.xlsm