Do Until Loop

[Sagittariu5]

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

[JOHN H. DAVIS]

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

[Sagittariu5]

Hello John H. Davis
That seems to do the trick

Thanks very much for you help and insight, GREATLY appreciate it

Regards
Sagittariu5

[JOHN H. DAVIS]

You're welcome. Glad to help out and thanks for the feedback and the rep. Please comply with Forum Rule No. 9.

9. Acknowledge the responses you receive, good or bad. If your problem is solved, please say so clearly, and mark your thread as Solved: Click Thread Tools above your first post, select "Mark your thread as Solved". Or click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. If more than two days have elapsed, the Dropdown option or Edit button will not appear -- ask a moderator to mark it.