Sub IE()
Dim i As Long
    Dim IE As Object
    Dim objElement As Object
    Dim objCollection As Object
    
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = False
    IE.Navigate "http://cskidd.gov.ua/certificates-catalog-location?s=2&d=1&n=61/"

End Sub

Sub IE_sec()
Dim oHttp As Object
    Dim strURL As String
   
    strURL = "http://www.cskidd.gov.ua/certificates-catalog-location?"
    On Error Resume Next
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
          
    If Err.Number <> 0 Then
        Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
    End If
    On Error GoTo 0
        
        
    oHttp.Open "POST", strURL, True
    oHttp.Send ("s=1&d=1&n=23")
    Debug.Print oHttp.ResponseText
         
End Sub

Sub IE_sec()
  
    Dim objIE As Object
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = False
    objIE.Navigate "http://www.cskidd.gov.ua/certificates-search"

...

Sub IE_sec()
  
    Dim objIE As Object
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = False
    objIE.Navigate "http://www.cskidd.gov.ua/certificates-search"

...

objIE.Document.getelementbyID("locBtnSubmit").Click