Переполнение для заполнения списка с помощью For Each

Question

Я создал средство связи с Excel для производственного цеха инженеров, программистов и подготовки к работе. Некоторое время он работал нормально, но теперь я получил переполнение ошибки 6.

Этот инструмент связи использует 3 разных Excels, один из которых используется производством для отправки обратной связи, другой, который собирает все данные, а затем другой, который используется в качестве портала для просмотра обратной связи и ее отзыва при реализации.

Я пробовал несколько вещей, таких как положить Exit For и Lastrow в Range, но затем он больше не заполняет список.

Код, который работал некоторое время, и все еще работает, между прочим, для других отделов с большим количеством строк.

  Private Sub UserForm_Initialize()

 Dim myData As Workbook 
 Set myData = Workbooks.Open("R:\Production\Productieleiding\Nietverplaatsen!\Terugkoppeling productie.xlsm") 
 Sheets("Archief").Select 
 ActiveSheet.ListObjects("Tabel2").AutoFilter.ShowAllData

 Dim LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row 
 Range("B2:H" & LastRow).Sort key1:=Range("C2:C" & LastRow), _    
 order1:=xlAscending, Header:=xlYes


Dim cMatrijs As Range
Dim ws As Worksheet Set ws = Worksheets("Archief")

'the line below is the loop where the overflow occurs!!!    

For Each cMatrijs In ws.Range("MatrijsLists2")
  With Me.ListBox
      .AddItem cMatrijs.Value
       .List(.ListCount - 1, 1) = cMatrijs.Offset(0, 1).Value

   End With
 Next cMatrijs


  Me.ScrollBars = fmScrollBarsBoth 
  Me.ScrollHeight = Me.InsideHeight *1.1 
  'Me.ScrollWidth = Me.InsideWidth * 2 
   myData.Close

   End Sub