Do Until loop not stopping

[Gabotico]

I have the following code for a Do Until, but it is not stopping at the given point. You Help will be greatly appreciated

Sub Macro6()
'
' Macro6 Macro
'


'
Dim LastRow As Long
LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Dim CurrentRow As Long
CurrentRow = ActiveCell.Row




Do Until Cells(CurrentRow, 1) = "End"

Range("C2:D5").Select
Selection.Copy
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste

Loop



End Sub

I'm using it on a table like this:

[TABLE="width: 256"]
<tbody>[TR]
[TD="width: 64"][TABLE="width: 256"]
<tbody>[TR]
[TD="width: 64"]A[/TD]
[TD="width: 64"]B[/TD]
[TD="width: 64"]CC[/TD]
[TD="width: 64"]D[/TD]
[/TR]
[TR]
[TD]REPORT[/TD]
[TD]ACCOUNTS[/TD]
[TD]CC[/TD]
[TD]$[/TD]
[/TR]
[TR]
[TD]REPORT1[/TD]
[TD="align: right"]1000[/TD]
[TD="align: right"]1[/TD]
[TD]formula[/TD]
[/TR]
[TR]
[TD]REPORT1[/TD]
[TD][/TD]
[TD="align: right"]2[/TD]
[TD]formula[/TD]
[/TR]
[TR]
[TD]REPORT1[/TD]
[TD][/TD]
[TD="align: right"]3[/TD]
[TD]formula[/TD]
[/TR]
[TR]
[TD]REPORT1[/TD]
[TD][/TD]
[TD="align: right"]4[/TD]
[TD]formula[/TD]
[/TR]
[TR]
[TD]REPORT1[/TD]
[TD="align: right"]10001[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]REPORT1[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]REPORT1[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]REPORT1[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]REPORT1[/TD]
[TD="align: right"]10002[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]REPORT1[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]REPORT1[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]REPORT1[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]REPORT1[/TD]
[TD="align: right"]10005[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]REPORT1[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]REPORT1[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]REPORT1[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]REPORT1[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]End[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD="width: 64"][/TD]
[TD="width: 64"][/TD]
[TD="width: 64"][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]


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

 

[DebugGalpin]

Your current row doesn't move as its outside the loop try bringing inside the loop

 

[Gabotico]

hi Galpin,

could you clarify what you mean by that?

Your current row doesn't move as its outside the loop try bringing inside the loop

 

[DebugGalpin]

CurrentRow = ActiveCell.Row
Do Until Cells(CurrentRow, 1) = "End"
Loop

So say you start and declare CurrentRow = ActiveCell.Row so lets say CurrentRow = 1
After you start the do until after the
first loop CurrentRow =1
second loop CurrentRow = 1
third loop CurrentRow = 1

and so on and so forth as you don't redeclare CurrentRow in the loops it stays as 1