Vba helper

case (is < 50 or 0 to 49) : msgbox "<50"
case (is < 60 or 50 to 59): msgbox "<60"
case else: msgbox "no category"

End Select
3)
For i = 1 To 100 Step 2
    ActiveCell.Offset(j, 0) = Rnd
    Exit For
Next i
4)
Do While ActiveCell <> Empty
    ActiveCell.Offset(1, 0).Select
    Exit Do
Loop
5)
For each cell (or range or object, or wb or ws) in range (etc.)

ActiveCell.Offset(1, 0).Select
Exit For

next
6)
While...wend
Do While Not ... loop
Do Until ... loop
Do...loop until