如何将不同工作表中的指定行的内容合并到一个工作表中？

Sub 合并()
Dim 合并 As Worksheet, 表 As Worksheet, y As Integer
Set 合并 = Worksheets.Add(Sheets(1))
y = 1
For Each 表 In Worksheets
If 表.Name Like "*班*" Then
表.Rows("4:8").Copy 合并.Range("a" & y)
y = y + 5
End If
Next
End Sub