To Paste special by value

[Rick Rothstein]

Hi ravichandavar,

Try replacing this line...

ActiveWorkbook.ActiveSheet.Range("A1:O100").Copy Destination:=ThisWorkbook.Worksheets("Upload").Cells(j, "A")

...with these lines:

ActiveWorkbook.ActiveSheet.Range("A1:O100").Copy
    ThisWorkbook.Worksheets("Upload").Cells(j, "A").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False

Alternately, you could do the same thing with this single line of code...

ThisWorkbook.Worksheets("Upload").Cells(j, "A").Range("A1:O100").Value = ActiveWorkbook.ActiveSheet.Range("A1:O100").Value

I am not 100% sure of how your setup looks, but I am pretty sure you do not need the part of the code I highlighted in red and I am not so sure whether you need the part of your code I highlighted in blue either.