Do Until Loop

Hello All
Being new to the forum as well as self taught in VBA was hoping for some insight
I’m trying to Do a Loop in order for a formula [ROUND(J5*K5%,2)] to be inserted into column O is column A, J and K are filled. In addition to this, skip any space and stop when there more than 3 spaces or on the last row filled.

Thus wondering if someone could point me in the right direction

Sub Quota_Share()

'Dim Last_Row As Long
Application.ScreenUpdating = False

'Last_Row = Sheets("Jul13").Range("A100").End(xlUp).Select

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

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

Thanks in advance