Sub getdatastuff()
Dim ie As Object

    Set ie = CreateObject("InternetExplorer.Application")
    ie.navigate "https://www.e-taxes.gov.az/ebyn/edvPayerChecker.jsp"
    ie.Visible = True
    While ie.Busy
        DoEvents
    Wend

    ie.Document.all("name").Value = Cells(1, 1).Value
    ie.Document.all("submit").Click

End Sub

Sub offshorecountryben(control As IRibbonControl)
    Dim rng As Range, c As Range, sToFind() As String
    Dim i As Long, n As Long, k As Long, f As Boolean
    Dim rFst As Long, rLst As Long
    Const codesToFind = "LU AD MU BS BH CW KY CY JE MT PA UY GG MC BZ VU BM BN BB AG AI AW IM CK WS DM GI CR SC LI CV BW KN MO SX MS NR MH PW LC VC GD VG LV NU LT MV AN VI LR LI HK AN"
    Application.ScreenUpdating = False
    With ActiveWorkbook
        n = .Sheets.count
        With .Sheets("Report 1")
            With .UsedRange
                With .Find("Beneficiary Bank")
                    k = .Column
                    rFst = .Row + 1
                End With
                rLst = .Row + .Rows.count - 1
            End With
            Set rng = .Range(.Cells(rFst, k), .Cells(rLst, k))
            .Copy After:=ActiveWorkbook.Sheets(n)
        End With
        With .Sheets(n + 1)
            .Range(rng.Address).EntireRow.Delete
            For Each c In rng
                f = False
                For i = 0 To UBound(sToFind)
                    If c Like "????" & sToFind(i) & "*" Then
                        f = True
                        Exit For
                    End If
                Next i
                If f Then
                    c.EntireRow.Copy .Rows(rFst)
                    rFst = rFst + 1
                End If
            Next c
        End With
    End With
    Application.ScreenUpdating = True
End Sub

Sub URL_Get_VOEN_status()
strSearch = Range("$A$1")
With ActiveSheet.QueryTables.Add(Connection:="URL;http://e-taxes.gov.az/isvatpayer/" & strSearch, _
Destination:=Range("$B$1"))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub