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!!
.
|