title: How can I condense this into a For Loop?
body: <p>Thanks in advance for the help. I'm not great by any means at VBA, and I'm guessing there has to be a way to save time/effort writing code for this. In summary, I'm trying to get Sheet1.Cells(2, 1) to print on Sheet2.Cells(i, 1) where i = 2 to 21, and then move to the next row in sheet 1. So, it would do the same thing for Sheet1.Cells(3, 1) to print to Sheet2.Cells(i, 1) where i = 22 to 41 this time. Below is the code that I have that works, but I need to do this thousands of times. Is there any way to make this code more robust?</p>
  <pre><code>Sub VIN_Decode()
      For i = 2 To 21
          Sheet2.Cells(i, 1) = Sheet1.Cells(2, 1)
      Next
      For i = 22 To 41
          Sheet2.Cells(i, 1) = Sheet1.Cells(3, 1)
      Next
      For i = 42 To 61
          Sheet2.Cells(i, 1) = Sheet1.Cells(4, 1)
      Next
      For i = 62 To 81
          Sheet2.Cells(i, 1) = Sheet1.Cells(5, 1)
      Next
      For i = 82 To 101
          Sheet2.Cells(i, 1) = Sheet1.Cells(6, 1)
      Next
  End Sub
  </code></pre>