下面是一个使用VBA代码获取Excel工作表最后一行的示例：

Sub GetLastRow()
    Dim lastRow As Long
    Dim ws As Worksheet
    
    ' 获取活动工作表
    Set ws = ActiveSheet
    
    ' 使用UsedRange属性获取工作表的使用范围
    lastRow = ws.UsedRange.Rows.Count
    
    ' 使用Cells方法获取最后一行的行号
    lastRow = ws.Cells(lastRow, 1).End(xlUp).Row
    
    ' 输出最后一行的行号
    MsgBox "最后一行的行号为：" & lastRow
End Sub

这段代码首先声明了一个lastRow变量和一个ws变量，lastRow用于存储最后一行的行号，ws用于存储活动工作表。

然后，通过Set语句将ws设置为活动工作表。

接下来，使用UsedRange属性获取工作表的使用范围，并通过Rows.Count获取使用范围的行数。

最后，使用Cells方法和End(xlUp)来获取最后一行的行号，并将其存储在lastRow变量中。

最后，通过MsgBox函数输出最后一行的行号。

请注意，这只是获取最后一行的一种方法，具体的方法取决于你的需求和数据的布局。