webquery macro navigating through website with drop down menus

Sub LoginToSite()
Dim IE As IE_Class
Dim IEdoc As Object
Dim Password As Object
Dim SubmitBtn As Object
Dim UserName As Object
 
Set IE = New IE_Class
IE.app.Visible = True
 
URL = "[URL]https://services.cuberoute.com/gcdp/html/home[/URL]"
IE.app.Navigate URL
 
While IE.app.Busy Or IE.app.readyState <> READYSTATE_COMPLETE: DoEvents: Wend
'IE.WaitForDownload
'IE.WaitTillReady
 
Set IEdoc = IE.app.Document
Set UserName = IEdoc.getElementsByName("user")(0)
Set Password = IEdoc.getElementsByName("password")(0)
 
UserName.Value = "Me"
Password.Value = "123"
 
Set SubmitBtn = IEdoc.getElementsByTagName("input")(2)
SubmitBtn.Click
 
End Sub

Sub WebQuery()
' Macro1 Macro
'
'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://services.cuberoute.com/gcdp/oe/view_orders_deliveries", _
        Destination:=Range("$A$1"))
        .Name = "view_orders_deliveries"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 60
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = """deliveryOrdersSearchTable"""
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Range("A1:M169").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Paste
    Range("P5").Select
End Sub

Public Sub WebAccess()
    Dim strUid As String    'UserID
    Dim strPass As String    'Password
    Dim strQueryURL As String    'URL to query
    Dim objIE As New SHDocVw.InternetExplorer
    Dim htmlDoc As MSHTML.HTMLDocument
    Dim htmlInput As MSHTML.HTMLInputElement
    Dim htmlColl As MSHTML.IHTMLElementCollection
    Dim testing As String
 
    strUid = "YourId"
    strPass = "YourPass"
    Set objIE = CreateObject("InternetExplorer.Application")
    With objIE
        .navigate "Your URL"    'Main URL
        Do While .Busy: DoEvents: Loop
        Do While .readyState <> 4: DoEvents: Loop
        Set htmlDoc = .document
        Set htmlColl = htmlDoc.getElementsByTagName("INPUT")
 
        For Each htmlInput In htmlColl
            If htmlInput.Name = "Itsname" Then htmlInput.Value = strUid
            If htmlInput.Name = "Itsname" Then htmlInput.Value = strPass
        Next htmlInput
        For Each htmlInput In htmlColl
            If htmlInput.Name = "Itsname" Then
                htmlInput.Click
                Exit For
            End If
        Next htmlInput
        Do While .Busy: DoEvents: Loop
        Do While .readyState <> 4: DoEvents: Loop
    End With
    strQueryURL = objIE.LocationURL
    Call ConnettionSUB(strQueryURL)
 
    Set htmlDoc = Nothing
    objIE.Quit
    Set objIE = Nothing
End Sub

Sub ExplorerTest()
    Dim sURL_to_Retrieve As String
    Dim appIE As SHDocVw.InternetExplorer
    'Check if page is already open
    sURL_to_Retrieve = "[URL]http://www.excelguru.ca[/URL]"
    Set appIE = GetOpenIEByURL(sURL_to_Retrieve, False)
    If appIE Is Nothing Then
        'No IE instance open.  Tell user
        MsgBox "Sorry, but internet explorer isn't open." & vbNewLine & _
               "Please open IE and log in to the site before" & vbNewLine & _
               "running this macro.", vbInformation + vbOKOnly, "IE is not open!"
    End If
    'Get the HTML from the page
    With appIE
        'Where the heck is the document content???
        .Refresh
    End With
    Set appIE = Nothing
End Sub
Function GetOpenIEByURL(sURL As String, Optional ByVal bExactMatch As Boolean = True) As SHDocVw.InternetExplorer
'Finds an open IE site by checking the URL

    Dim objShellWindows As SHDocVw.ShellWindows
    Dim lCount As Long
    
    Set objShellWindows = New SHDocVw.ShellWindows
    
    If bExactMatch = False Then sURL = "*" & sURL & "*"
    'Ignore errors when accessing the document property
    On Error Resume Next
    'Loop through all open Shell-Windows
    For lCount = 1 To objShellWindows.Count
        'Only look at HTML documents
        If TypeName(objShellWindows.Item(lCount - 1).Document) = "HTMLDocument" Then
            'Check the URL
            If objShellWindows.Item(lCount - 1).LocationURL Like sURL Then
                'Exit the function, since we found the right URL to work with
                Set GetOpenIEByURL = objShellWindows.Item(lCount - 1)
                Exit Function
            End If
        End If
    Next
End Function

Sub LoginToSite2()
  Dim IE As Object
  Dim IEdoc As Object
  Dim Password As Object
  Dim SubmitBtn As Object
  Dim UserName As Object
  
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    
      URL = "[URL]https://services.cuberoute.com/gcdp/html/home[/URL]"
      IE.Navigate URL
      
      While IE.Busy Or IE.readyState <> 4: DoEvents: Wend
      
      Set IEdoc = IE.Document
        Set UserName = IEdoc.getElementsByName("user")(0)
        Set Password = IEdoc.getElementsByName("password")(0)
        
          UserName.Value = "Me"
          Password.Value = "123"
      
          Set SubmitBtn = IEdoc.getElementsByTagName("input")(2)
          SubmitBtn.Click
          
End Sub