Excel VBA - поиск и обновление табличных значений из другого листа

Question

Мне нужно обновить некоторые значения в столбце таблицы с другого листа.Для каждой строки в таблице с именем "tbPartnerList" найдите номер строки на листе ws2, где значение в ws2.Range ("B: B") соответствует значению в столбце 1 таблицы.Затем перенесите соответствующее значение из ws2.Range («AH: AH») в 14-й столбец таблицы.Хотя я могу найти значение в ws2, я изо всех сил пытаюсь вернуть его в таблицу.Метод не поддерживается в [tbPartnerList] .ListRows (row) .Columns (14) = ws2.Cells (rng.row, 34)

Set ws2 = Sheet6

For Each row In [tbPartnerList].Rows
    partAccount = row.Columns(1).Value
    With ws2.Range("B:B")
        Set rng = .find(What:=partAccount, _
                                After:=.Cells(.Cells.Count), _
                                LookIn:=xlValues, _
                                LookAt:=xlWhole, _
                                SearchOrder:=xlByRows, _
                                SearchDirection:=xlNext, _
                                MatchCase:=False)
        If Not rng Is Nothing Then
            [tbPartnerList].ListRows(row).Columns(14) = ws2.Cells(rng.row, 34)
        End If
    End With
Next