Looping until the last row in sheet - copy cell i until last colmn

[KNKN9]

Hi and thanks,


Data set

Col A Col B Col C Col D Col E Col F Col G
Row 1 x x x x x x x
[TABLE="width: 4615"]
<colgroup><col><col><col><col><col><col><col span="2"><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col><col></colgroup><tbody>[TR]
[TD]Row 2 x x x x x x x
Row 3 x x x x x x x
Row 4 x x x x x x x[/TD]
[TD][/TD]
[TD]

[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

I need to copy each row separately ( baring in mind my data my not always start in row 1 so the row starting point is unknown. I need to do this until the last row so in this case row 4.

I am only able to do this if I know my starting row I am struggling to get this done when not knowing the starting row.

I have the code below

For i = 79 To LastRow
    Range(i, Rng).Copy
    Next i

 

[DanteAmor]

I don't know what you have in Rng, but the row number i must be in cells(i, x) or in Range(x & i)

Maybe something like this:

  LastRow = Range("A" & Rows.Count).End(xlUp).Row
  For [B][COLOR=#FF0000]i[/COLOR][/B] = LastRow To 1 Step -1
    If Cells([SIZE=3][B][COLOR=#ff0000]i[/COLOR][/B][/SIZE], Rng).Value = "" Then Exit For
    Range(Rng & [B][COLOR=#FF0000]i[/COLOR][/B]).Copy
  Next i