Hi I am try to save ArrayList to Excel but I only save the last record in the ArrayList to all sheet
anyone who can help me fix this, thanks


Code:
       Dim objExcel As New Excel.Application
                    Dim objWorkbook As Excel.Workbook
                    Dim objWorksheet As Excel.Worksheet
                  
                    Try

                        objWorkbook = objExcel.Workbooks.Open("PATH TO FILE\" + "FILE.xlsm")
                        objWorksheet = objWorkbook.Worksheets.Item("Sheet1")
                        For Each Subject In Subjectlisti                       
                            objWorksheet.Range("B2", "B120").Value = Subject.type
                            objWorksheet.Range("C2", "C120").Value = Subject.count
                            objWorksheet.Range("D2", "D120").Value = Subject.meters
                        Next
                       
                        objWorkbook.Save()

                    Catch Ex As Autodesk.AutoCAD.Runtime.Exception
                        'Handle exception
                    Finally
                        'Do cleanup

                        objExcel.Workbooks.Close()
                        objExcel.Application.Quit()
                        objExcel.Visible = False

                    End Try
Regards
ssalomon