Ошибка выполнения '424' Требуется объект Excel VBA

Question

Здравствуйте, я пытаюсь заполнить список из опции, выбранной в другом списке.

Ниже приведен мой текущий код, но я получаю сообщение об ошибке

Ошибка времени выполнения '424 'Требуется объект Excel

в строке, начинающейся с LastRow = ...

Private Sub HardwareManufacturerListBox_Click()
LastRow = Manufacturer_Kit.Cells(Rows.Count, 1).End(xlUp).Row
Me.HardwareManufacturerListBox.Clear
curVal = Me.HardwareManufacturerListBox.Value
For x = 1 To LastRow
    If Manufacturer_Kit(x, "a") = curVal Then
        Me.HardwareTypeListBox.AddItem Manufacturer_Kit.Cells(x, "b")
    End If
Next x
End Sub

Любая помощь с этим будет высоко ценится!