Môžeš riadok
srcRange.Copy dstCell
nahradiť zasrcRange.Copy
dstCell.PasteSpecial xlPasteValues
Potom príkaz Cells.ClearFormats nebude ani potrebný a namiesto prvého Cells.Clear bude stačiť volať Cells.ClearContents.
Môžeš riadok
srcRange.Copy dstCell
nahradiť zasrcRange.Copy
dstCell.PasteSpecial xlPasteValues