Проблемът е, че Worksheet_Change се извиква рекурсивно още от
първия ред на цикъла и така до безкрай. Затова трябва да се
направи проверка дали има нужда от присвояването. Или самата
процедура да се стартира по друг начин.

Пробвай това:

For i=1 to 5
if Sheets("инструктаж").Cells(32+i,1).Value<>Sheets("задачи").Cells(i,1).Value then
Sheets("инструктаж").Cells(32+i,1).Value=Sheets("задачи").Cells(i,1).Value
exit sub
end if
Next

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