Samozreme pokiaľ chceš zachovať aktuálne údaje aj v zdrojovom súbore tak musím nad tým trochu pošpekulovať :)

Přesně tak musí se uložit i udaje v zdrojovém souboru, je to faktura s několika funkcemi.
Jedná se o soubor, který jsme tu řešili na začátku vlákna. Pokud by se neukládal nešlo by využít funkci automatického číslování faktury

Sub tlačítko1_Klepnutí()
Dim newFile As String, fName As String
Range("G1").Select
    ActiveCell.FormulaR1C1 = Range("G1").Value + 1
Range("A12").Select


   ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True

ActiveWorkbook.Save
fName = "D:\záloha\" & Range("G1").Value
newFile = fName
ActiveWorkbook.SaveAs Filename:=newFile
End Sub

+ další kódy na vymazání, černobílí tisk atd ...

Díky, že s mím "problémem" ztrácíš svůj drahocenný čas