wrote:
Fellow coders,

I have large files of data where I need to
copy every other row alongside the initial
row, and then delete the rows that are
copied.
. . .
If the functions in the freely downloadable file at
http://home.pacbell.net/beban are available to your workbook:

Range("L2").Resize(Range("B2:K7").Rows.Count \ 2, 10).Value
= _ ArrayAlternates(Range("B2:K7"), False)

Alan Beban