Hi ravichandavar,

Try replacing this line...

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

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

Robert