Exibir valor de tabela dinamica em textbox

Question

Boa noite,

Eu estou usando um sistema de cadastro de quantidade de peças produzidas em maquinas para manutenção preventiva, com um userform, onde eu uso um código para buscar outras informações e cadastrar o numero de peças realizadas. O código que eu busco e as informações vem do seguinte programa:

Private Sub UserForm_Initialize()
    Plan2.Select
    Dim linha As Integer
    linha = 3
   
    Do While Range("B" & linha) <> ""
    linha = linha + 1
    Loop
   
    Dim i As Range
 For Each i In ThisWorkbook.Worksheets("Plan3").Range("A2:A277").Rows
 Me.ComboBox1.AddItem Format(i.Cells(1, 1), "")
 Next i

    Me.TextBox1 = Now()
End Sub

Private Sub ComboBox1_Change()
 Dim i As Integer
i = ComboBox1.ListIndex + 1
Select Case i
Case i
 TextBox5.Value = Plan3.Cells(i, 2).Value
 TextBox6.Value = Plan3.Cells(i, 3).Value
 TextBox7.Value = Plan3.Cells(i, 4).Value
 TextBox8.Value = Plan3.Cells(i, 5).Value
End Select
End Sub

Estes códigos vão para BD, que esta linkado a uma planilha dinamica, eu preciso retornar este código da tabela dinamica onde mostra a soma em um testbox.Por favor me ajudem.

Obrigado