Невозможно скопировать данные с другого листа на основной лист. Ошибка при выполнении индекса VBA вне диапазона Ошибка 9 при вызове дополнительной копии

Question

для получения данных с веб-сайта в sheet2

Sub Button1_Click()

    strSearch = Range("a1")
    With Sheet2.QueryTables.Add( _
                     Connection:="URL;https://iban.codes/validate/ " & strSearch & "&safe=active", _
                     Destination:=Sheet2.Range("a5"))`

       .BackgroundQuery = True
        .TablesOnlyFromHTML = True
        .Refresh BackgroundQuery:=False
        .SaveData = True
    End With
    Call copy
    Application.ScreenUpdating = True
    Sheet2.UsedRange.Delete
    End Sub

для копирования данных из sheet2 в sheet1

Sub copy()
        Sheets("Sheet2").Range("A5").copy Destination:=Sheets("Sheet1").Range("A5") 
 End Sub

Answer 1

Сценарий был вне диапазона, потому что мое имя в Excel было другим. Я изменил это, и это сработало.