VBA copy paste range

[RHowell2380]

Is there a way to copy a range on sheet 1
Example A1:A165 and paste on sheet 2 skipping rows. I need to copy A1 from sheet 1 and paste it on B1 on sheet 2, A2 to B15, A3 to B30. I have 163 rows in 78 columns that I need to copy from sheet 1 to sheet 2 so I need some VBA miracles. Thanks in advance.

 

[rollis13]

Just for column A have a try with this macro. Then you can work on it for the other 77 columns:

Option Explicit
Sub test()
Dim cell As Range
    For Each cell In Range("A1:A165")
        cell.Copy Sheets(2).Cells(cell.Row * 14 - 13, 2)
    Next cell
End Sub