Copying and skipping (adding) rows

Hi.
I have a column of data that runs from row 2:53. I want to paste this
data into another worksheet, but for each line of data I want to skip
down ten rows.
Here's a illustration of the data (immigration data):

Worksheet 1 (Year 1995)
State Afghanistan
Alabama 500
Alaska 100
Arizona 900
.. .
.. .
.. .

Worksheet 2 1995-2005
State Year Afghanistan
Alabama 1995
1996
1997
1998
1999
2000
2001
2002
2003
2004
2005
Alaska 1995
1996
.. .
.. .
.. .

So, I want to paste the Alabam's 1995 from the 1st worksheet into the
1995 year in the 2nd worksheet, skip ten rows down paste Alaska, and so
on...

Thanks for any help.
Matt Hall
Penn State

i = 2
for each cell in Worksheets("Sheet1").Range("A2:A53")
Worksheets("Sheet2").Cells(i,1) = cell
yr = 1995
for j = i to i + 11
worksheets("Sheet2").Cells(i,2) = yr
yr = yr + 1
Next
i = i + 12
Next
Worksheets("Sheet2").Range("A1:C1").Value = _
Array("State","Year","Afghanistan")

--
Regards,
Tom Ogilvy


<[email protected]> wrote in message
news:[email protected]...
> Hi.
> I have a column of data that runs from row 2:53. I want to paste this
> data into another worksheet, but for each line of data I want to skip
> down ten rows.
> Here's a illustration of the data (immigration data):
>
> Worksheet 1 (Year 1995)
> State Afghanistan
> Alabama 500
> Alaska 100
> Arizona 900
> . .
> . .
> . .
>
> Worksheet 2 1995-2005
> State Year Afghanistan
> Alabama 1995
> 1996
> 1997
> 1998
> 1999
> 2000
> 2001
> 2002
> 2003
> 2004
> 2005
> Alaska 1995
> 1996
> . .
> . .
> . .
>
> So, I want to paste the Alabam's 1995 from the 1st worksheet into the
> 1995 year in the 2nd worksheet, skip ten rows down paste Alaska, and so
> on...
>
> Thanks for any help.
> Matt Hall
> Penn State
>