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?