VBA添加新行到最后的有关问题

VBA添加新行到最后的问题
需要添加几行到表格最后我的代码是：
  Set xlBook = xlApp.Workbooks.Open(TextBox1.Value, ReadOnly = True) 
  Set xlsheet = xlBook.Worksheets("GLCD+PLCD&SUFFIX")  
  maxno = xlsheet.UsedRange.Rows.Count 
   
  Set newrow = xlsheet.Rows.Add(BeforeRow:=xlsheet.Rows(maxno))

可运行到添加哪行总是告诉我：对象不支持该属性和方法
大家帮我看看有什么问题

[解决办法]
添加行用Insert方法
xlsApp.ActiveSheet.Rows(maxno).Insert
[解决办法]
1) Rows 没有 Add() 函数。
2) Excel 末尾添加不需要任何插入操作，maxno 的下一行可以直接填充数据。
[解决办法]

VBScript code

xlsheet.Cells(30, 1).Value = "A"     'Cells(30, 1)--第30行、第1列，等同于 Range("A30")xlsheet.Cells(30, 5).Value = "123"     'Cells(30, 5)--第30行、第5列，等同于 Range("E30")