Copy Cells To Another Workbook

Im trying to make a function which copy some cells from one workbook to another. In the function you maybe able to see that im seaching in a folder in c drive ect. ect. The part which doesnt work is marked with bold

Private Sub CommandButton1_Click()

Dim basebook As Workbook
Dim mybook As Workbook
Dim i As Long
Dim j As Long
Application. ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = "C:Data"
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
Set basebook = ThisWorkbook
For i = 1 To .FoundFiles.Count
Set mybook = Workbooks.Open(.FoundFiles(i))
mybook. sheets(1).Select
mybook.Range(A1:H18)
mybook.Selection.Copy
basebook.Worksheets(2).Select
basebook.Cells(A, 1).Select
basebook.Selection.Paste

mybook.Close
Next i
End If
End With
Application.ScreenUpdating = True
End Sub