title: Repeat the same value 33 times, then go to the next value and repeat again
body: <p>I'm pretty new to VBA codes and I've run to the following issue:</p>
  <p>I have a set of individual data in Sheet1 Column &quot;A&quot;</p>
  <p>I'd like every single value to repeat &quot;y&quot; times (currently y=33) in Sheet2 Column &quot;A&quot; and then repeat the next value 33 times etc. I've wrote a code but what's happening its repeating the values 33 times, but only overwriting itself in A1:A33 and I cant figure it out why.</p>
  <p>My current code looks as follows:</p>
  <pre><code>Sub vba1()
      Dim lrow As Integer
      Dim i As Integer
      Dim y As Integer
  lrow = Sheets(&quot;sheet1&quot;).Cells(Rows.Count, 1).End(xlUp).Row
  y = 1
  For i = 1 To lrow
      Sheets(&quot;sheet1&quot;).Activate
      Cells(i, 1).Select
      Selection.Copy
          For y = 1 To 33
              Sheets(&quot;sheet2&quot;).Activate
              Cells(y, 1).PasteSpecial Paste:=xlPasteValues
          Next y
  Next i
  End Sub
  </code></pre>
  <p>I've tried with a different approach, to somehow make y to increment but what I've got with this method I have a lot of empty rows:</p>
  <pre><code>Sub vba2()
          Dim lrow As Integer
          Dim i As Integer
          Dim y As Integer
      lrow = Sheets(&quot;sheet1&quot;).Cells(Rows.Count, 1).End(xlUp).Row
      y = 1
      For i = 1 To lrow
          Sheets(&quot;sheet1&quot;).Activate
          Cells(i, 1).Select
          Selection.Copy
              For y = y To y + 33
                  Sheets(&quot;sheet2&quot;).Activate
                  Cells(y, 1).PasteSpecial Paste:=xlPasteValues
                  y = y + 33
              Next y
      Next i
  End Sub
  </code></pre>
  <p>I'd really appreciate any help!
  Thank you!</p>