Ivek33 uvek daje dobra rešenja, u to ne treba da se sumnja...
Ja sam nešto uradio, mislim da daje sličan rezultat, ali valja proveriti:
Code:
Sub Arhviranje()
Dim Podatak As Range
Dim ws As Worksheet
Dim ws1 As Worksheet
Set ws = ThisWorkbook.Worksheets("FAKTURA1")
Set ws1 = ThisWorkbook.Worksheets("Kupci")
Set Podatak = ws1.Range("b65000").End(xlUp)
Set Podatak = Podatak.Offset(1, 0)
Podatak.Value = ws.Range("f9")
Podatak.Offset(0, 1).Value = Date & " " & Time
Application.ScreenUpdating = False
End Sub
VICTORIA CONCORDIA CRESCIT