Wycięcie zaznaczonej komórki

Selection.Cut


Wklejenie zawartości do zaznaczonej komórki bieżacego arkusza

ActiveSheet.Paste


Wklejenie wartości w obszarze określonym przez konkretną komórkę

Worksheets("WN_" & Mid(nazwa_wniosku, 1, 5) & "_" & Mid(nazwa_wniosku, 7, 5) & "_Protokol_Final").Cells(9, 1).PasteSpecial Paste:=xlPasteValues