10个格式相同的统计表，想分别把10个a4:r73区域内的数据复制到sheet11,从表1到10依次向下衔接在一起，然后

Sub 复制()
For i = 1 To Sheets.Count - 1
j = Sheets(Sheets.Count).Range("A65536").End(xlUp).Row + 1
Sheets(i).Range("a4:r73").Copy Sheets(Sheets.Count).Range("A" & j)
Next
Sheets(Sheets.Count).Range(Range("A4"), Range("R65536").End(xlUp)).Select
Selection.Sort Key1:=Range("Q4"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
End Sub
Sub 删除数据()
Sheets(Sheets.Count).Range(Range("A4"), Range("R65536").End(xlUp)).Delete
End Sub