将行增加250以复制和粘贴数据

Question

我有一个带有日期的脚本的6000个数据点（股价），我想每次在下一张工作表中复制500个数据点，并希望每次选择数据时将其增加250行，直到该行为空白。我创建了一个宏，但无法获得所需的结果。索引源是包含6000个数据点的工作表，而索引数据是我要粘贴数据的工作表。谢谢

Sub rollingresults()
    Dim x As Range
    Dim y As Integer

    y = 250

    Num_Counter = Worksheets("Indexsource").Range("B1").Value

    For i = 1 To Num_Counter

        Worksheets("IndexSource").Activate

        x = Range("A4:H503").Offset(y * (i - 1), 0).Select

        Selection.Copy

        Worksheets("index_data").Range("P3").Select

        Selection.PasteSpecial

        ActiveWorkbook.RefreshAll

        Worksheets("ALM").Range("J40:M40").Select

        Selection.Copy

        Worksheets("Hist_Output").Cells(2 + (i - 1), 2).Select

        Selection.PasteSpecial

    Next i

End Sub