Creating a do until loop inside a do until loop

Afternoon all. I am trying to nest a do until loop inside another do until loop, i understand this logic wont work so whats the best way to perform this function, this is what i have done so far. (both loops work in their own right just not when put together:

Do Until ActiveCell = ""
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("List").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select

Do Until ActiveCell.Offset(-1, 6) = 1
If ActiveCell.Offset(-1, 6) > 1 Then
ActiveCell.Offset(-1, 0).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 6).Select
ActiveCell.FormulaR1C1 = "=R[-1]C-1"
ActiveCell.Offset(1, -6).Select
End If
Loop

Sheets("Paste ").Select
ActiveCell.Offset(1, 0).Select

Loop

any help would be appreciated