Compile Error: Loop Without Do - Looping with multiple GoTo statements

[SBF12345]

Greetings,

I am receiving a loop without Do error at the second "loop". Is it possible to loop to the same initial "Do Until" statement from more than one point? I would like to loop back to the initial point from each GoTo statement.

k = Range(Cells(Rows.End(xlUp), b))    
    Do Until k = 1
    
    If Range(Cells(k, b)) <> "" Then GoTo First Else GoTo Second
    
First:
    
        Set h = Range(Cells(k, Column.End(xlToRight)))
        k = k - 1
        
        
        Loop
          
          
Second:
    
        h.Copy
        Range(Cells(k, b)).PasteSpecial Paste:=xlPasteValues
        
        k = k - 1
        
        
        Loop
    
    
End If

 

[mrshl9898]

How's this?

k = Range(Cells(Rows.End(xlUp), b))
Do Until k = 1
    
    If Range(Cells(k, b)) <> "" Then
        Set h = Range(Cells(k, Column.End(xlToRight)))
        k = k - 1
    Else
        h.Copy
        Range(Cells(k, b)).PasteSpecial Paste:=xlPasteValues
        k = k - 1
    End If
   
Loop

 

[pjmorris]

HI,

Apologies if this seems critical, but since whenever I first started learning to write code I've been advised (on pain of something unpleasant) to never ever use a goto statement. The solution provided by Mrshl clearly avoids such a construct. The danger with using them is that in anything complicated you end up with a 'string vest' of code that is almost indecipherable.

Just an observation.

Regards