Try;

Sub CopyNames()
Dim rCell As Range
Dim strFirst As String
Dim strSecond As String
Dim lFirst As Long
Dim lSecond As Long
Dim ws As Worksheet
'CodeName
'http://www.ozgrid.com/VBA/excel-vba-sheet-names.htm
Set ws = Sheet2
lFirst = 5
lSecond = 15
For Each rCell In Range("A2", Cells(Rows.Count, 1).End(xlUp))
strFirst = Split(rCell)(0)
strSecond = Split(rCell)(1)
With ws
.Cells(lFirst, 1) = strFirst
.Cells(lSecond, 1) = strSecond
End With

lFirst = lSecond + 5
lSecond = lFirst + 10
Next rCell
End Sub



--
Regards
Dave Hawley
www.ozgrid.com
"JPreeshl" wrote in message
...
I have a column of names in consecutive rows. I want to copy them to
another
sheet where the 1st name is in row 5 then the 2nd name is in row 15 etc
with
an increase of 10 rows between the copied names.
If I try to copy a formula it just takes every 10th name not the next one.