Option Explicit
    Dim Ch As Selenium.ChromeDriver
    Dim URL As String
    Dim FindBy As New Selenium.By
    Dim Login As String
    Dim Password As String

Sub PA_Download()

        On Error GoTo ErrorHandl

    Set Ch = New Selenium.ChromeDriver
        URL = "https://dealer.pasystem.ru/Ostatki_price.xlsx"
        Login = "example"
        Password = "12345678"
    Ch.Start
    Ch.Get URL

'на этом этапе выскакивает окно, с которым не могу взаимодействовать как с webelemnt

Exit Sub
ErrorHandl:
        Debug.Print "Артикул " & Article & " не загружен. Изменилась ссылка или таблица"
End Sub