excel dosyası okuma

[oydemir]

Formda bulduğum kotla Excel dosyası okuyorum fakat eceldeki ikinci ve üçüncü sayfaları göremiyorum formu çalıştırdığımda Excel kitabındaki sütün sayfalardan seçerek dosyaya okutmak istiyorum. nasıl bir düzelte gerekir.

Private Sub CommandButton1_Click()
Sheets("KÖY_İLAN_EKBS").Select
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "excel 2007-13", "*.xlsx;*.xlsm;*.xls"
AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then
MsgBox "excel dosyası sec"
Exit Sub
End If
kopya = InputBox("Koplayanacak hücre aralığını yazınız SON SATIR ", Default:="a1:AA")
yapiştir = InputBox("yapıştırılacak hücreyi yazınız", Default:="a1")
Application.Workbooks.Open .SelectedItems(1)
Set kaynak = Application.ActiveWorkbook

'kaynak.Sheet("b").Range(kopya).Copy("b").Range (yapiştir)
kaynak.ActiveSheet.Range(kopya).Copy ThisWorkbook.ActiveSheet.Range(yapiştir)
kaynak.Close False
Set kaynak = Nothing

End With
End Sub