VBA, loop through range and copy cell contents to another worksheet offsetting each time

Vote count:

0

Not having any luck finding a solution to this problem. Working with loops.

The main concept is that my macro takes values from one column of cells (one at a time) and pastes them to another column in another worksheet except each time the values getting pasted are 7 cells down from the last paste. - Thanks for considering my request.

Sub LoopData()

Dim X As Integer
NumRows = Range("A1", Range("A2").End(xlDown)).Rows.Count

Range("A1").Select
For X = 1 To NumRows

Selection.Copy _
    Destination:=Worksheets("Sheet1").Range("A1")

'not sure for what code to put here to move the copied contents down 7 cells each time    

ActiveCell.Offset(1, 0).Select
Next 

edited 28 secs ago

simoco

19.9k

asked 44 secs ago

user3578485

1