Добавление объекта класа в коллекцию - VB

Формулировка задачи:

Пишу макрос для Excel 2010. На текущем этапе макрос должен считывать определённые строки из одного листа, затем добавить их в новую книгу. Считываемая строка представляет собой заказ с характеристиками Name, Code и Amount. Поэтому создал класса Order и пытаюсь добавлять его в коллекцию.
Сам класс:

Public Name As String
Public code As Integer
Public amount As Integer

И код из процедуры, который должен считывать определённые строки:

Dim cell As Range, sFileName As String, Orders As New Collection
    
Dim rowCount As Long
rowCount = ActiveSheet.Rows.Count

Dim j As Long
Dim orderValue As Integer, codeValue As Integer, sheet As Worksheet, currentOrder As Order
    For j = 5 To rowCount
        orderValue = ActiveSheet.Cells(j, 5).Value
        If orderValue <> 0 Then
            Set currentOrder = New Order
            With currentOrder
                .amount = orderValue
                .code = ActiveSheet.Cells(j, 1).Value
                .Name = ActiveSheet.Cells(j, 2).Value
            End With
            Orders.Add (currendOrder)
        End If
    Next j

Если смотреть в дебагере, то после добавления в коллекцию в ней появляется одна Item со значением Empty типа Variant/Empty.
Думаю, в коллекцию добавляется какой-то пустой элемент.
И так же при попытке записи этой коллекции в новую книгу вылетает ошибка "Object required" на строке оператора For Each:

Dim NewBook As Workbook
    Set NewBook = Workbooks.Add
    With NewBook
        .Title = "All Sales"
        .Subject = "Sales"
        sFileName = Application.GetSaveAsFilename & ".xls"
        
        Dim addingOrder As Order
        j = 1
        For Each addingOrder In Orders
            ActiveSheet.Range(j, 1).Value = Orders.Item(j).code
            ActiveSheet.Range(j, 2).Value = Orders.Item(j).Name
            ActiveSheet.Range(j, 3).Value = Orders.Item(j).amount
            j = j + 1
        Next addingOrder
        
        If sFileName = "False.xls" Then Exit Sub
        .SaveAs Filename:=sFileName
    End With

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

Решение задачи: «Добавление объекта класа в коллекцию»

textual
                            Листинг программы 
                        
                            Orders.Add (currendOrder)