Laufzeitfehler 424 Objekt erforderlich

Sub Schaltfläche1_Klicken()
    Dim wkbCrntWorkBook As Workbook
    Dim wkbSourceBook As Workbook
    Dim rngSourceRange As Range
    Dim rngDestination As Range
    Set wkbCrntWorkBook = ActiveWorkbook
    With Application.FileDialog(msoFileDialogOpen)
        .Filters.Clear
        .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            Workbooks.Open .SelectedItems(1)
            Set wkbSourceBook = ActiveWorkbook
            Set rngSourceRange = Application.InputBox(prompt:="Auswahl der Jahresverteilung", Title:="Auswahl Jahresverteilung", Default:="A1", Type:=8)
            wkbCrntWorkBook.Activate
            Set rngDestination = Application.InputBox(prompt:="Zeilposition der Jahresverteilung", Title:="Ziel Jahresverteilung", Default:="A1", Type:=8)
            rngSourceRange.Copy rngDestination
            'rngDestination.CurrentRegion.EntireColumn.AutoFit
                        Workbooks.Open .SelectedItems(1)
            Set wkbSourceBook = ActiveWorkbook
            Set rngSourceRange = Application.InputBox(prompt:="Auswahl der Abteilungen", Title:="Auswahl Abteilungen", Default:="A1", Type:=8)
            wkbCrntWorkBook.Activate
            Set rngDestination = Application.InputBox(prompt:="Zielposition der Abteilungen", Title:="Ziel Abteilungen", Default:="A1", Type:=8)
            rngSourceRange.Copy rngDestination
            'rngDestination.CurrentRegion.EntireColumn.AutoFit
                        Workbooks.Open .SelectedItems(1)
            Set wkbSourceBook = ActiveWorkbook
            Set rngSourceRange = Application.InputBox(prompt:="Auswahl der Gesamtkosten [T€]", Title:="Auswahl Gesamtkosten", Default:="A1", Type:=8)
            wkbCrntWorkBook.Activate
            Set rngDestination = Application.InputBox(prompt:="Zielposition der Gesamtkosten", Title:="Ziel Gesamtkosten", Default:="A1", Type:=8)
            rngSourceRange.Copy rngDestination
            'rngDestination.CurrentRegion.EntireColumn.AutoFit
            wkbSourceBook.Close False
        End If
    End With
End Sub