Copy row one by one and paste into another worksheet

[motilulla]

Hello,<o></o>

I got sheet named "DATA" in this sheet got data filled in cells A6:P560,<o></o>

I am looking VBA which can copy each Row one by one from "Data" sheet starting from A6:P6 copy this row and paste into sheet named "Summary" starting from cell A6<o></o>

"Then I got macro will do some task"

Copy nextrow A7:P7 from data sheet and paste in to cell A7 in to sheet named "Summary"

Do copypaste till last row A560:P560 from sheet "Data" to "Summary"

Is it possible?<o></o>

Thank you all<o></o>
Excel 2000<o></o>
Regards,<o></o>
Moti

 

[Nine Zero]

Hello,<o></o>

I got sheet named "DATA" in this sheet got data filled in cells A6:P560,<o></o>

I am looking VBA which can copy each Row one by one from "Data" sheet starting from A6:P6 copy this row and paste into sheet named "Summary" starting from cell A6<o></o>

"Then I got macro will do some task"

Copy nextrow A7:P7 from data sheet and paste in to cell A7 in to sheet named "Summary"

Do copypaste till last row A560:P560 from sheet "Data" to "Summary"

Is it possible?<o></o>

Thank you all<o></o>
Excel 2000<o></o>
Regards,<o></o>
Moti

Try this out

Sub Moti()
For i = 6 To 560
    Worksheets("Data").Range("A" & i & ":P" & i).Copy Worksheets("Summary").Range("A" & i)

'Insert your macro task stuff here


Next i
End Sub

 

[motilulla]

Try this out

Sub Moti()
For i = 6 To 560
    Worksheets("Data").Range("A" & i & ":P" & i).Copy Worksheets("Summary").Range("A" & i)

'Insert your macro task stuff here


Next i
End Sub

Hello Nine Zero, code looks precise and it is working fine just as requested.

Thank you very much for your kind help

Kind Regards,
Moti

 

[Nine Zero]

No problem, glad i could help!