Excel VBA复制和粘贴多张工作表，无法计算行数

Worksheets.Add.Name = "新工作表"

Worksheets("源工作表").Copy After:=Worksheets("新工作表")

Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet

For Each sourceSheet In ThisWorkbook.Worksheets
    If sourceSheet.Name Like "源工作表*" Then ' 根据实际情况修改匹配条件
        Set targetSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
        targetSheet.Name = Replace(sourceSheet.Name, "源工作表", "新工作表")
        sourceSheet.Copy After:=targetSheet
    End If
Next sourceSheet

Dim ws As Worksheet
Dim lastRow As Long

For Each ws In ThisWorkbook.Worksheets
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    MsgBox "工作表 " & ws.Name & " 的有效数据行数为 " & lastRow
Next ws