Convert Worksbooks To Worksheets

I need to convert worksbooks to worksheets. I need only the first sheet in every worksbook (the active sheet). I use the code bellow but it doesn't works. I got an error message that the paste can't works.

Sub WBtoWS()
Dim wb As Workbook
Dim ws As Worksheet
Dim file As Object
Dim folder1 As Object
Dim Files As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
sPath = "e:project part 2eran in his format"
Set folder1 = oFSO.GetFolder(sPath)
FileIndex = 0
For Each file In folder1.Files
FileIndex = FileIndex + 1
Workbooks.Open Filename:=file.Path
Cells.Copy
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets.Add
ActiveSheet.Name = "Subject#" & FileIndex
Cells(1, 1).Select
ActiveSheet.Paste
Next
End Sub