 <p>Change the line:<br> <code>Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False</code></p> <p>To:<br> <code>ActiveWorksheet.UsedRange.Copy</code><br> <code>Activeworksheet.Range("A1").PasteSpecial Paste:=xlPasteValues</code></p>