Do Until Loop

Maybe:

Sub Sagittariu5()

Application.ScreenUpdating = False

Sheets("Jul13").Range("A5").Select

    Do
        If ActiveCell.Value <> "" And ActiveCell.Offset(0, 9).Value <> "" And ActiveCell.Offset(0, 10).Value <> "" Then
                    ActiveCell.Offset(0, 14).FormulaR1C1 = "= ROUND(RC[-5]*RC[-4]%,2)"
                    ActiveCell.Offset(1, 0).Select
        End If
              
    Loop Until ActiveCell.Value = "" And ActiveCell.Offset(2).Value = ""

Application.ScreenUpdating = True
End Sub