DoUntil loop delete

[julhs]

I know I need a loop for this but I just can’t construct it (Using "GoTo line simply for testing")

If Selection.Cells.Count > 2 Then
  MsgBox "Want to continue and clean things up ? "
    FirstRow = Range("MyRange").Cells.Find("*", SearchOrder:=xlByRows, _
      SearchDirection:=xlNext).Row
    LastRow = Range("MyRange").End(xlDown).Row
Line1:
    Range("B" & FirstRow - 1).Select
    Range("B" & FirstRow - 1).Delete
    Range("MyRange").Select
 If Selection.Cells.Count > 2 Then
   GoTo line1
Else
   Range("MyRange").ClearContents
End If

 

[Skyybot]

This info may help. Do...Loop statement (VBA)

 

[julhs]

Thank you for info.
What you gave me and everything I’ve searched SHOULD give me what I need to do this.
But I'm struggling to decipher it and apply it to my scenario.

 

[Skyybot]

Try this

If Selection.Cells.Count > 2 Then
  MsgBox "Want to continue and clean things up ? "
    FirstRow = Range("MyRange").Cells.Find("*", SearchOrder:=xlByRows, _
      SearchDirection:=xlNext).Row
    LastRow = Range("MyRange").End(xlDown).Row
Do Until Selection.Cells.Count > 2
    Range("B" & FirstRow - 1).Select
    Range("B" & FirstRow - 1).Delete
    Range("MyRange").Select
 Loop
Else
   Range("MyRange").ClearContents
End If

 

[julhs]

Thanks for that.
Feel like a right clown for not being able to decipher things, obviously had a complete mental time out.
Did have to make couple of changes though.

Do Until Selection.Cells.Count > 2

Needed to be

Do Until Selection.Cells.Count = 2

And no longer needed

Else

All good now.
Many thanks for your help
Julhs