Need Help With Loop Until in VBA

Maybe:

Sub palaceofreveriezz()
Range("A1").Select
If ActiveCell.Value >= ActiveCell.Offset(, 1).Value Then Exit Sub
If ActiveCell.Value < ActiveCell.Offset(, 1).Value Then
   ActiveCell.Value = ActiveCell.Value + 0.5
End If
End Sub