filling every tenth row
 

I have data on wrksht(A) and need to copy to wrksht(B).
wrksht(a)A1 to A1 on wrksht(B)
wrksht(a)A2 to A11 on wrksht(B)
wrksht(a)A3 to A21 on wrksht(B)
wrksht(a)A4 to A31 on wrksht(B)
and so on.

Help!!

filling every tenth row
 

try this
Sub copytoten()
counter = 1
For Each c In Range("a1:a100")
c.Copy Worksheets("sheet2").Cells(counter, 1)
counter = counter + 10
Next
End Sub

--
Don Guillett
SalesAid Software

"Salim" wrote in message
...
I have data on wrksht(A) and need to copy to wrksht(B).
wrksht(a)A1 to A1 on wrksht(B)
wrksht(a)A2 to A11 on wrksht(B)
wrksht(a)A3 to A21 on wrksht(B)
wrksht(a)A4 to A31 on wrksht(B)
and so on.

Help!!

filling every tenth row
 

for rw = 0 to 10

wsB.cells(rw*10+1,"A").Value = _
wsA.Cells(rw+1,"A").Value

next


Patrick Molloy
Microsoft Excel MVP

-----Original Message-----
I have data on wrksht(A) and need to copy to wrksht(B).
wrksht(a)A1 to A1 on
wrksht(a)A2 to A11 on wrksht(B)
wrksht(a)A3 to A21 on wrksht(B)
wrksht(a)A4 to A31 on wrksht(B)
and so on.

Help!!
.