Do Until Endless Loop

[reberryjr]

I have some code where I'm evaluating the value of the last cell in column CB. If that value <> "Current", then that row is copied and pasted into the row below it. I had code that works fine for that, but it was only performing on one row at a time. I did some googling and it seems as though Do Until and Loop would be the answer. I put this code together based on some examples I found, but the code just continues to run, with no results.

Can someone help identify what I need to change?

Private Sub Worksheet_Activate()

Application.ScreenUpdating = False


Dim csws7 As Worksheet
Dim csLastRow7 As Long


Set csws7 = ThisWorkbook.Sheets("Financials")
csLastRow7 = csws7.Range("D" & Rows.Count).End(xlUp).Row


'If the last value in column CB doesn't = Current, then copy the last row and paste _
it to the next row.  Repeat this process until the last value in column CB = Current.
Do Until csws7.Range("CB" & csLastRow7).Value = "Current"


If Not csws7.Range("CB" & csLastRow7).Value = "Current" Then
    csws7.Range("A" & csLastRow7 & ":CB" & csLastRow7).Copy
    csws7.Range("A" & csLastRow7 + 1).PasteSpecial
    csws7.Range("X" & csLastRow7 + 1).Value = ""
    csws7.Range("AH" & csLastRow7 + 1).Value = ""
    csws7.Range("AR" & csLastRow7 + 1).Value = ""
    csws7.Range("BB" & csLastRow7 + 1).Value = ""
    csws7.Range("BL" & csLastRow7 + 1).Value = ""
    csws7.Range("BT" & csLastRow7 + 1).Value = 0
    csws7.Range("BU" & csLastRow7 + 1).Value = 0
    csws7.Range("BV" & csLastRow7 + 1).Value = 0
    csws7.Range("BW" & csLastRow7 + 1).Value = 0
    csws7.Range("BX" & csLastRow7 + 1).Value = 0
End If


Application.CutCopyMode = False


Loop


Application.ScreenUpdating = True


End Sub

 

[reberryjr]

The sheet where the formula resides has several formulas on it. Some are just calculating date differences, while others, calculate payment amount and payment status for 7 different service types. The data is entered through userforms. The loop itself doesn't change the value of CB. The intent is to copy and paste rows until the formula returns a result of "Current".

Let's say your next payment is due on 2/1/18. You pay $100/month, but you pay that amount weekly. That means that every week (yes, I'm rounding), you owe $25. The formulas within the row will calculate the next payment due as 2/1/18, then 2/8/18, then 2/15/18, then 2/22/18, then 3/1/18. Each date has $25 associated to it. The final row (3/1/18) has't occurred yet, so the $25 isn't due. Therefore, for that row, the value of column BS (Total Due) would be $0, resulting in the formula in CB returning a "Current" value.

 

[JLGWhiz]

the Do...Loop adds rows pretty fast and could be negating any caluculations that would change the value in CB. That is one possibility. Another is that the logic applied to the sequence of events in the calculations might need some attention. In any case, it will probably take a better view of the sheet set up than this thread has so far to come up with a good solution.