[InTacto]

вместо "5" нужно подставить "-4163"

нашел в справке по VBA метода PasteSpecial объекта Range.
Значение "5" там кста нету.

Юр, только засорять буфер в темную это моветон, имхо.
И селектион трогать не советую!