a macro question

I wish to copy a column of numbers, a number in every 5th row, from sheet1 to sheet 2 same column but in consecutive rows.

I have tried to write a do loop to do this but I have to have a variable in the adress of a cell (eg R[2]C) has to be R[p]C where p is counter increasing by 5 every cycle in th eloop.


Thanks for any assistance

Bill

It is usually better to post your code so someone can let you know what you are doing wrong. This code works for the first row in any column, then every 5th after that. You can change it to meet your needs. You don't state if it is always the same column, so I have made it variable - you need to click in the column that you want to copy.

Sub copyColumn()
    Dim MyRow As Integer
    Dim LastRow As Integer
    Dim X As Integer
    Dim StartPos As Range
    Set StartPos = Selection
    LastRow = Selection.Range("A65000").End(xlUp)
    Selection.EntireColumn.Range("A1").Select
    X = 0
    Do While Selection.Row <= LastRow
        Sheets("Sheet2").Range("A1").Offset(X, 0).Value = Selection.Value
        Selection.Offset(5, 0).Select
        X = X + 1
    Loop
    StartPos.Select
End Sub

Thanks. Problem solved!