filling every tenth row

  • Thread starter Thread starter Salim
  • Start date Start date
S

Salim

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!!
 
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
 
for rw = 0 to 10

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

next


Patrick Molloy
Microsoft Excel MVP
 
Back
Top