With Sheet2        iarr = .Range(.[a5].End(xlToRight), .[a5].End(xlDown)).Value

Sub baseupd59()
    Dim arr(), iarr(), x
    Dim i, j, dic As New Scripting.Dictionary
    With Sheet1
        arr = .Range(.[a5].End(xlToRight), .[a5].End(xlDown)).Value
    End With
    With Sheet2
        iarr = .Range(.[a5].End(xlToRight), .[a5].End(xlDown)).Value
    End With
    For i = 2 To UBound(iarr)
        dic.Item(CStr(iarr(i, 59))) = i
    Next i
    ReDim larr(1 To UBound(arr), 1 To UBound(arr, 2))
    For i = 2 To UBound(arr)
        If Not dic.Exists(CStr(arr(i, 59))) Then
            x = x + 1
            For j = 1 To UBound(arr, 59): larr(x, j) = arr(i, j): Next j
        Else: For j = 1 To UBound(arr, 2): iarr(dic.Item(CStr(arr(i, 59))), j) = arr(i, j): Next j
        End If
    Next i
    With Sheet2
        .Columns(59).NumberFormat = "@"
        .[a2].Resize(UBound(iarr), UBound(iarr, 2)).Value = iarr
        i = .Range("a" & .Rows.Count).End(xlUp).Row + 1
        If Not IsEmpty(larr(1, 1)) Then .Range("a" & i).Resize(i, UBound(larr, 2)).Value = larr
    End With
End Sub

Sub update()
    Dim arr(), iarr(), x&
    Dim i&, j&, dic As New Scripting.Dictionary
    With Sheet1
        arr = .Range(.[a5].End(xlToRight), .[a5].End(xlDown)).Value
    End With
    With Sheet2
        iarr = .Range(.[a2].End(xlToRight), .[a2].End(xlDown)).Value
    End With
    For i = 2 To UBound(iarr)
        dic.Item(CStr(iarr(i, 2))) = i
    Next i
    ReDim larr(1 To UBound(arr), 1 To UBound(arr, 2))
    For i = 2 To UBound(arr)
        If Not dic.Exists(CStr(arr(i, 2))) Then
            x = x + 1
            For j = 1 To UBound(arr, 2): larr(x, j) = arr(i, j): Next j
        Else: For j = 1 To UBound(arr, 2): iarr(dic.Item(CStr(arr(i, 2))), j) = arr(i, j): Next j
        End If
    Next i
    With Sheet2
        .Columns(2).NumberFormat = "@"
        .[a2].Resize(UBound(iarr), UBound(iarr, 2)).Value = iarr
        i = .Range("a" & .Rows.Count).End(xlUp).Row + 1
        If Not IsEmpty(larr(1, 1)) Then .Range("a" & i).Resize(x, UBound(larr, 2)).Value = larr
    End With
End Sub

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

{"MESSAGE":"4401174785 vöen mövcud deyil","RESULT":"3"}

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