vba遍历并复制

Sub addtable()
'
' addtable Macro
' 宏由 Administrator 录制，时间: 2020/11/15
'

'
Dim number,numberstart
number = Sheets("汇总").UsedRange.Rows.Count
numberstart = number - 11
Dim a As String
a = Format(DateAdd("d", -1, Date), "m.d")

Dim i As Integer
    Dim s,clearst,clearend As Integer
    clearst = number + 2
    clearend = number + 11

    For i = Worksheets.Count - 2 To 1 Step -1
        s = s + 1
    IF s >= 2 Then 
    Sheets(s).Activate
    Rows(numberstart & ":" & number).Select
    Selection.Copy
    Range("A" & number + 1).Select
    ActiveSheet.Paste

    Range("A" & numberstart+13 & ":A" & number + 12).Select
    Selection.Formula = a

    IF s >= 3 Then
    Range("C" & clearst & ":E" & clearend).ClearContents
    Range("H" & clearst & ":I" & clearend).ClearContents
    Range("M" & clearst & ":O" & clearend).ClearContents
    End If
    End If

    Next
End Sub