To Paste special by value

[ravichandavar]

HI Team,

I have the macro which opens the files from specified folder and pastes in a file one below another.But the problem is its doing copy paste but i need Paste special by value; Pleas find the below code which I'm using.

'ThisWorkbook.Worksheets("Data").Clear
 'On Error Resume Next
 Workbooks.Open Filename:=ThisWorkbook.Worksheets("Main").Cells(i, 1)
 
 ActiveWorkbook.ActiveSheet.Range("A1:O100").Copy Destination:=ThisWorkbook.Worksheets("Upload").Cells(j, "A")
 
  ActiveWorkbook.Close
 j = j + 100
 
 Application.Wait Now + TimeValue("00:00:05")
 Next i
  ThisWorkbook.Worksheets("Data").Visible = False
 
End Sub 

Please help me to turn the result in paste special by value.

Thanks in Advance.