Reakce na odpověď

Pro případné další, téma bylo již vyřešeno (9.10) přes e-mail.

Edit:
Pokud by někoho zajímal kód tak zde.

Sub faktura_ulozit()
Dim Radek As Long

Radek = Worksheets("VYDANÉ FAKTURY").Cells(Rows.Count, 1).End(xlUp).Row + 1 'najde poslední plný řádek a přičte 1
'Debug.Print Radek

Worksheets("VYDANÉ FAKTURY").Cells(Radek, 1) = Worksheets("FAKTURA").Range("J14").Value 'datum
Worksheets("VYDANÉ FAKTURY").Cells(Radek, 2) = Worksheets("FAKTURA").Range("H3").Value 'odberatel
Worksheets("VYDANÉ FAKTURY").Cells(Radek, 3) = Worksheets("FAKTURA").Range("D13").Value 'forma uhrady
Worksheets("VYDANÉ FAKTURY").Cells(Radek, 4) = Worksheets("FAKTURA").Range("I49").Value 'castka
Worksheets("VYDANÉ FAKTURY").Cells(Radek, 5) = Worksheets("FAKTURA").Range("J16").Value 'datum splatnosti
End Sub

Makro VBA -kopírování do první prázdné buňky