Sub LimitState() 'По переменной найти данные ячейки

Dim Cell As Range
Dim i As String

    Set LimitList = ThisWorkbook.Worksheets("Ëèìèòû")
    Set LimitTable = LimitList.ListObjects("Ëèìèò_tb")
    Set Cell = LimitTable.ListColumns.Item(1).Range.Find(Reestr.txt_code.Value, LookAt:=xlWhole)
Let i = Reestr.txt_orgnumber.Value 'здесь ошибка

    If Not Cell Is Nothing Then
    Reestr.txt_limit.Value = Format(Cell.Cells(1, i), "#,##0.00")
    End If
    
End Sub

Sub insert_row()
ActiveSheet.Unprotect Password:="2211"
    Dim last_row As Long, a$, b$, c$, d$, e$
    last_row = Range("B:B").Find("*", LookIn:=xlValues, SearchDirection:=xlPrevious).Row
    a = Cells(last_row, 1).FormulaR1C1
    b = Cells(last_row, 13).FormulaR1C1
    c = Cells(last_row, 15).FormulaR1C1
    d = Cells(last_row, 16).FormulaR1C1
    e = Cells(last_row, 17).FormulaR1C1
    Rows(last_row).Copy
    Rows(last_row).Insert Shift:=xlDown
    Cells(last_row, 1).Resize(2).Formula = a
    Cells(last_row, 13).Resize(2).Formula = b
    Cells(last_row, 15).Resize(2).Formula = c
    Cells(last_row, 16).Resize(2).Formula = d
    Cells(last_row, 17).Resize(2).Formula = e
    Application.CutCopyMode = 0
    Cells(last_row + 1, 2).Select
ActiveSheet.Protect Password:="2211", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowSorting:=True, UserInterfaceOnly:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
End Sub

Sub insert_row()
ActiveSheet.Unprotect Password:="2211"
    Dim last_row As Long, a$, b$, c$, d$, e$
    last_row = Range("B:B").Find("*", LookIn:=xlValues, SearchDirection:=xlPrevious).Row
    a = Cells(last_row, 1).FormulaR1C1
    b = Cells(last_row, 13).FormulaR1C1
    c = Cells(last_row, 14).FormulaR1C1
    d = Cells(last_row, 15).FormulaR1C1
    e = Cells(last_row, 16).FormulaR1C1
    Rows(last_row).Copy
    Rows(last_row).Insert Shift:=xlDown
    Cells(last_row, 1).Resize(2).Formula = a
    Cells(last_row, 13).Resize(2).Formula = b
    Cells(last_row, 14).Resize(2).Formula = c
    Cells(last_row, 15).Resize(2).Formula = d
    Cells(last_row, 16).Resize(2).Formula = e
    Application.CutCopyMode = 0
    Cells(last_row + 1, 2).Select
ActiveSheet.Protect Password:="2211", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowSorting:=True, UserInterfaceOnly:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
End Sub