Fehlermeldung bei Datenimport

Hallo zusammen

Beim coding erhalte ich immer die Fehlermeldung unten wenn es das file mit den zu importierenden Daten öffnet. Weiss jemand was an dem coding falsch ist?
https://www.herber.de/bbs/user/159379.png

Zusätzlich müsste ich die Auswahl ".Cells(9, 1)" ändern, sodass es von der ersten bis zur vierten Spalte geht und nicht nur die erste Spalte kopiert wie im coding. Wie lautet da die Änderung?

 
Sub dateiöffnenDialog()
      Dim filetoopen
      Dim wb As Workbook
  
      filetoopen = Application.GetOpenFilename() ' FileFilter:="Exceldateien (*.xls,*.xlsx")
      If filetoopen = False Then Exit Sub
      Set wb = Workbooks.Open(filetoopen, ReadOnly:=True)
      With wb.Worksheets(1).Cells(9, 1)
          If .Value > "" Then
              .Resize(.End(xlDown).Row - 8).Copy
              ThisWorkbook.Worksheets(1).Cells(1, 1).End(xlUp).Offset(1).Paste
          End If
      End With
      wb.Close False
      Set wb = Nothing
  End Sub