Help with Looping to solve 'procedure too large' problem

[chris100]

Hi all,

Anyone help with looping this please - i need to perform the same action as this until the numbers in red are say, 100). Alternatively until a line to be copied is blank.


lrw = Sheets("BREAKDOWN").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row

Sheets("BREAKDOWN").Cells(lrw, 1) = Sheets("invoice").Range("cg7")
Sheets("BREAKDOWN").Cells(lrw, 2) = Sheets("invoice").Range("ch7")
Sheets("BREAKDOWN").Cells(lrw, 3) = Sheets("invoice").Range("ci7")
Sheets("BREAKDOWN").Cells(lrw, 4) = Sheets("invoice").Range("cj7")

Thanks for all the help. Could someone also recommend any links to good looping examples?

[Norie]

Perhaps something like this.

Please Login or Register  to view this content.

[chris100]

Thanks Norie, I'll give that a go.