VBA: Change referenced cell for each loop iteration

[yits05]

Let me start by saying I am completely new to VBA. I have the following code (dumbed down version of the actual code but captures the essence of my question):

FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To FinalRow
    Sheets("Sheet1").Select
    Range("A2").Select
    Selection.Copy
    Sheets("Sheet1B2").Paste

Next i

It's purpose is to copy cell content from A2 to B2, A3 to B3, and so on for 175 rows. I know I am doing something wrong because there is nothing telling Excel to change the cell reference with each loop. Would appreciate any guidance on how to do this.

Thanks!

 

[mohadin]

Hi

For i = 2 To FinalRow
    Sheets("Sheet1").Select
    Range("A" & i).Select
    Selection.Copy
    Sheets("Sheet1").Range("B" & i).Paste

Next i

 

[mohadin]

And try this as well

For i = 2 To FinalRow
    Sheets("Sheet1").  Range("A" & i).Copy  Sheets("Sheet1").Range("B" & I)

Next i

 

[Fluff]

Or without a loop

   With Sheets("Sheet1")
      .Range("A2", .Range("A" & Rows.Count).End(xlUp)).Copy .Range("B2")
   End With