excel里如何用VB把sheet1的内容按要求复制至sheet1----sheet22里？

excel里如何用VB把sheet1的内容按要求复制至sheet1----sheet22里？

加我企鹅707583395，我把样板发过去

Sub s()
    Sheet1.Cells.Copy
    For i = 1 To 22
        Sheets(i).[a1].Paste
    Next
End Sub

加了，看看什么情况 再看看别人怎么说的。