繰り返し処理 For Step ＥＸＣＥＬ ＶＢＡ

シート２にからシート３にコピーし転写します。データを一定間隔で抽出してコピーしますが、
その準備としてデータ元のシート２の転写するデータの１つ上のセルに、「作業用タグ100
～作業用タグ250」を貼付けます。
シート３へは順番にもしくは任意に「貼付用タグ100～」を設置します。
以下は100から250までのデータ区間中の３つ単位でコピー貼付けします。
Resizeでデータの高さを変更します。
御利用の際には必ず予備のデータを用意してから御使用ください。


Sub 繰り返し処理()
Dim X(500) As Variant
Sheets("Sheet2").Select
A = "作業用タグ"
For i = 100 To 250 Step 3
C = A & i
X(i) = Cells.Find(what:=C).Offset(1, 0).Resize(10, 1).Value
Next i
Sheets("Sheet3").Select
B = "貼付用タグ"
For i = 100 To 250 Step 3
C = B & i
Cells.Find(what:=C).Offset(1, 0).Resize(10, 1).Select
Selection.Value = X(i)
Next
End Sub