Offset Troubles

Good afternoon all,

I am having an issue with how the offset is working in my module and I am looking for a little help or insight into what I am doing wrong. Here is the code that I have written. But when I run the module all it does is stacks everything on to the 2nd row and it won't offset each row like I am intending?

CopyColumnsSheet2()
Dim LastRow As Long, Erow As Long

LastRow = sheet2.Cells(Rows.Count, 1).End(xlUp).Row
Erow = sheet3.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

For i = 3 To LastRow

sheet2.Cells(i, 2).Copy
sheet2.Paste Destination:=Worksheets("Sheet3").Cells(Erow, 2)

sheet2.Cells(i, 5).Copy
sheet2.Paste Destination:=Worksheets("Sheet3").Cells(Erow, 3)

sheet2.Cells(i, 7).Copy
sheet2.Paste Destination:=Worksheets("Sheet3").Cells(Erow, 4)

sheet2.Cells(i, 8).Copy
sheet2.Paste Destination:=Worksheets("Sheet3").Cells(Erow, 5)

sheet2.Cells(i, 13).Copy
sheet2.Paste Destination:=Worksheets("Sheet3").Cells(Erow, 6)

sheet2.Cells(i, 9).Copy
sheet2.Paste Destination:=Worksheets("Sheet3").Cells(Erow, 7)

sheet2.Cells(i, 11).Copy
sheet2.Paste Destination:=Worksheets("Sheet3").Cells(Erow, 8)

sheet2.Cells(i, 12).Copy
sheet2.Paste Destination:=Worksheets("Sheet3").Cells(Erow, 9)

sheet2.Cells(i, 15).Copy
sheet2.Paste Destination:=Worksheets("Sheet3").Cells(Erow, 10)

Next i

Application.CutCopyMode = False
Worksheets("Sheet3").Columns.AutoFit
 
Range("A1").Select

End Sub

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #2 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer

Just Looking for a little help. I know I know total Newby mistake, just learning this stuff but.

You never change the value of Erow. Insert this into your loop:

Erow = Erow + 1
next i

You can also reduce the copy/paste to one line each:

CopyColumnsSheet2()
Dim LastRow As Long, Erow As Long

LastRow = sheet2.Cells(Rows.Count, 1).End(xlUp).Row
Erow = sheet3.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

For i = 3 To LastRow
sheet2.Cells(i, 2).Copy Destination:=Sheet3.Cells(Erow, 2)
sheet2.Cells(i, 5).Copy Destination:=Sheet3.Cells(Erow, 3)
sheet2.Cells(i, 7).Copy Destination:=Sheet3.Cells(Erow, 4)
sheet2.Cells(i, 8).Copy Destination:=Sheet3.Cells(Erow, 5)
sheet2.Cells(i, 13).Copy Destination:=Sheet3.Cells(Erow, 6)
sheet2.Cells(i, 9).Copy Destination:=Sheet3.Cells(Erow, 7)
sheet2.Cells(i, 11).Copy Destination:=Sheet3.Cells(Erow, 8)
sheet2.Cells(i, 12).Copy Destination:=Sheet3.Cells(Erow, 9)
sheet2.Cells(i, 15).Copy Destination:=Sheet3.Cells(Erow, 10)
Erow = Erow + 1
Next i

Sheet3.Columns.AutoFit
 
Range("A1").Select

End Sub