如何给Excel追加数据并能保存而不是覆盖

怎么给Excel追加数据并能保存而不是覆盖?
Set xlApp = New Excel.Application

Set xlBook = xlApp.Workbooks.Open(App.Path & "\Data.xls")

Set xlSheet = xlBook.Worksheets("AA")

xlApp.Visible = False

Set llRow = xlSheet.UsedRange.Count / 30

....

到这里就写不下了
每次保存都会把原来有的数据给覆盖
请问该如何操作才能继续追加数据呢?
谢谢

------解决方案--------------------
excel命令现在忘光了，我记得当初是用一个循环遍历表格Range来判断是否是空行，不是空行，则取最后一行+1，然后写入就可以啊
------解决方案--------------------

探讨

Set xlApp = New Excel.Application

Set xlBook = xlApp.Workbooks.Open(App.Path & "\Data.xls")

Set xlSheet = xlBook.Worksheets("AA")

xlApp.Visible = False

Set llRow = xlSheet.UsedRange.Co……