Перенос данных по контрагенту в печатную форму

Global a
Global pt As ListObject
Global CA As Object
Global Itog As Object
Sub A_010_PH()
    Dim d As Object
    Dim wb As Workbook
    Set wb = ThisWorkbook
    Set shPR = ThisWorkbook.Sheets("РН")
    Set pt = shPR.ListObjects("printT")
    Set CA = ThisWorkbook.Names("CoAg")
    Set Itog = ThisWorkbook.Names("Itogo")
    For r = pt.ListRows.Count To 2 Step -1
        pt.ListRows.Item(r).Delete
    Next r
    For r = 1 To 8
        pt.Range(r) = ""
    Next r
    a = ActiveSheet.UsedRange.Value
    Set d = CreateObject("Scripting.Dictionary")
    For i = 3 To UBound(a)
        If a(i, 4) <> 0 And a(i, 1) <> "" Then
            d.Item(a(i, 1)) = a(i, 1)
        End If
    Next i
    b = d.items
    For k = 0 To UBound(b)
        UserForm1.ComboBox1.AddItem b(k)
    Next k
    UserForm1.Show
End Sub
Sub B_020_PRI(x)
Range(CA.Value) = CStr(x)
For i = 3 To UBound(a)
    If x = a(i, 1) Then
        If pt.Range(1) <> "" Then
            pt.ListRows.Add
        End If
        pt.Range(pt.ListRows.Count * 8 + 1 - 8) = pt.ListRows.Count
        pt.Range(pt.ListRows.Count * 8 + 2 - 8) = a(i, 2)
        pt.Range(pt.ListRows.Count * 8 + 4 - 8) = a(i, 3)
        pt.Range(pt.ListRows.Count * 8 + 5 - 8) = a(i, 4)
        pt.Range(pt.ListRows.Count * 8 + 6 - 8) = "кг"
        pt.Range(pt.ListRows.Count * 8 + 7 - 8) = a(i, 6)
        pt.Range(pt.ListRows.Count * 8 + 8 - 8) = a(i, 8)
        ItogSumm = ItogSumm + a(i, 8)
    End If
Next i
Range(Itog.Value) = ItogSumm
End Sub

Private Sub ComboBox1_Change()
Unload Me
Call B_020_PRI(ComboBox1.Text)
End Sub