Дописать данные в конец листа Excel

Dim iAllRows As Integer = ExWS.UsedRange.Rows.Count

Imports Microsoft.Office.Interop.Excel
 
Public Class frm_Main
 
    Dim ExApp As New Application                               'Приложение Excel
    Dim ExWB As Workbook                                       'Книга Excel
    Dim ExWS As Worksheet                                      'Лист книги Excel
 
...
 
    Private Sub frm_Main_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        ExApp.DisplayAlerts = False
        If ExWS IsNot Nothing Then ExWS = Nothing
        If ExWB IsNot Nothing Then ExWB = Nothing
        ExApp.Quit()
    End Sub
 
Sub/Function
            Try
                ExWB = ExApp.Workbooks.Open(DicFileList.Item(lb_FileList.Text))
                AddLog("Открыли книгу: " & DicFileList.Item(lb_FileList.Text))
 
                ExWS = ExWB.ActiveSheet
                ExWS.Unprotect(tb_Password.Text)
                AddLog("Сняли пароль с листа")
 
                ExWS.Name = sToDate
                AddLog("Переименовали лист")
 
                Dim iAllRows As Integer = ExWS.UsedRange.Rows.Count
                AddLog("Всего строк в продажном листе: " & iAllRows.ToString)
 
                Dim dCostDay As Decimal = ExApp.WorksheetFunction.Sum(ExWS.Columns("P"))
                AddLog("Сумма за день: " & dCostDay.ToString)
 
                ExWS.Range("A2:A" & iAllRows).Value = sToDate
                AddLog("Заменили даты")
 
                ExWS.Protect(tb_Password.Text)
                AddLog("Установили пароль на лист")
 
...
                ExWB.SaveAs(sNewFileName)
                AddLog("Сохранили книгу с новым именем в : " & sNewFileName)
 
                IO.File.Delete(sOldFileName)
                AddLog("Удалили старый файл: " & sOldFileName)
                Try
                    ExWB.Close()
                    AddLog("Рабочая книга закрыта")
                Catch ex As Exception
                    MsgBox(ex.Source & vbCrLf & ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical)
                End Try
            Catch ex As Exception
                MsgBox(ex.Source & vbCrLf & ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical)
            End Try