По-добре е да НЕ използваш опциите на интерфейса
селект/копи/пейст, вместо това можеш да направиш
директно присвояване:

If Sheets("инструктаж").Range("M29") = "ОК" Then
For i=1 to 5
Sheets("инструктаж").Cells(32+i,1).Value=Sheets("задачи").Cells(i,1).Value
Next
End If

Успех!

Опит е името, с което хората наричат грешките си. О.Уайлд