有30多个表格，想要把每个表格的A6:H505的数据提取

Sub i()
Dim i
maxsheet = Sheets.Count
With Sheets.Add
.Move af
Sheets(1).Move after:=Sheets(maxsheet)
.Name = "汇总"
For i = 1 To maxsheet
ar = Sheets(i).[A6:H505]
.Cells(.Cells(Rows.Count, 1).End(3).Row, 1).Resize(UBound(ar, 1), unound(ar, 2)) = ar
Erase ar
Next
End With
End Sub
没试不知道行不行