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