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
Nije to loše Rembrante, samo što ne bi dodao još malo boje?