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