读取Excel表的最后一行和最后一列的代码是什么？

Question

早上好，

我在下面有此代码，该代码在电子邮件的正文中发送带有附件（Excel文件）的电子邮件（Excel文件）和表格。

Sub Email()

Dim outapplication As Object
Dim nEmail As Object
Set outapplication = CreateObject("outlook.application")
Set nEmail = outapplication.CreateItem(olMailItem)
strTime = Date

With nEmail
.Display
.To = "[email protected]"
.CC = ""
.Subject = "Email's title" & " " & strTime
.attachaments.Add "G:\path\test.XLSX"


With .GetInspector.WordEditor.Windows(1).Selection
.typetext "E-mail's body"
.typeParagraph
.typeParagraph
.typetext "Following the table:"
.typeParagraph
.typeParagraph
.typeParagraph
Sheets("TOP").Select
ActiveSheet.Range("a1:B21").Copy 'Here to change the code
.Paste
.typeParagraph
.typeParagraph
Application.CutCopyMode = False
End With
   
.Send

End With

Set outapplication = Nothing
Set nEmail = Nothing



End Sub

- 我想选择一个特定的表（因为它是从“ A1：B21”中），我希望代码检查表的最后一列和最后一行。