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:

A B CC D REPORT ACCOUNTS CC $ REPORT1 1000 1 formula REPORT1 2 formula REPORT1 3 formula REPORT1 4 formula REPORT1 10001 REPORT1 REPORT1 REPORT1 REPORT1 10002 REPORT1 REPORT1 REPORT1 REPORT1 10005 REPORT1 REPORT1 REPORT1 REPORT1 End <tbody> </tbody>

<tbody>
</tbody>

 

[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