[ darkos1 @ 25.01.2021. 15:13 ] @
Kod neće da odradi svaki put, već svaki drugi put, a ne menjam nista u kodu.
[ Jpeca @ 25.01.2021. 20:47 ] @
Najlakše da prebaciš Worksheets("kupci").Unprotect () na početak, jer problem koliko sam video desi se prilikom aktivaciji lista - prekine se operacija kopiranja. Usput ActiveSheet.Activate na početku ti ne treba

Ja lično bih umesto kopiranja koristio direkntu dodelu vrednosti, to mi se čini mnogo preglednije

Code:

Sub KupciPrepis()
Dim rw As Long
Dim cl As Integer
Dim shSource As Worksheet, shDest As Worksheet

Set shSource = ActiveSheet
Set shDest = ThisWorkbook.Sheets("Kupci")
rw = shDest.Range("A6000:E6000").End(xlUp).Row + 1

'
Worksheets("kupci").Unprotect ("dada")
For cl = 1 To 5
    shDest.Cells(rw, cl).Value = shSource.Range("B24").Offset(RowOffset:=cl)
Next cl

Worksheets("kupci").Protect ("dada")
End Sub
[ darkos1 @ 26.01.2021. 21:07 ] @
Hvala