Excel 只想对第3页和第4页的行进行计数，并在消息框中显示计数

我只想在一个消息框中计算表2和表3的行数

通过下面的代码，我得到了所有工作表和不同messagebox中的计数

Sub FindingLastRow()


For Each sh In ActiveWorkbook.Worksheets
    MsgBox sh.Cells(sh.Rows.Count, "A").End(xlUp).Row - 1 & " " & sh.Name & " " & "Trade/s"
    Next sh


End Sub

Option Explicit

Sub last_lines()
    Dim i As Long
    Dim s As String
    
    For i = 2 To 3
        With ThisWorkbook.Worksheets(i)
            s = s & .Cells(.Rows.Count, "A").End(xlUp).Row - 1 & " - " & .Name & " " & "Trade/s" & vbLf
        End With
    Next i
    
    MsgBox Prompt:=s, Title:="Last lines", Buttons:=vbOKOnly
End Sub