我现在有一个存储公式的工作表，我希望将这些公式复制并粘贴到工作簿中的所有其他工作表中

我有70张纸需要复制数据。

要从中复制数据的工作表名称为“ SAMPLE” 数据应从工作表编号3复制 （“ SAMPLE”是工作表编号1，在保留2张工作表之后，需要在“ Y1：BA151”范围内的每张工作表中复制数据。

我尝试了以下代码

Sub COPY()

 Dim WS_Count As Integer
     Dim I As Integer


     WS_Count = activeWorkbook.Worksheets.Count


     For I = 1 To 70

       Worksheets("SAMPLE").Range("Y1:BA151").COPY



     Next I

  End Sub

但是我是乞讨者，所以我缺少地方，请帮忙。 提前。