Selecting certain rows

Change these followings to suit your needs:

ActiveSheet is the source of the data

Sheets("Sheet2") is the destination sheet

Range("B" :Will copy in to next empty column B

Sub copyme()
 Application.ScreenUpdating = 0
 With ActiveSheet
       For i = 2 To 20 Step 2
       .Cells(6, i).Resize(150).Copy
        Sheets("Sheet2").Range("B" & .Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
        Next
 End With
 Application.CutCopyMode = 0
 Application.ScreenUpdating = True
End Sub