I have a macro that checks whether the sum of a range = 0. If it does not equal zero a message box will ask user to check values in range. However, I also want the macro to pause and wait for values to change, then re-apply the if statement test and if the sum is zero then continue with the rest of the macro.

I have the code for the 2 message boxes, but can't find anything that makes sense for the macro to pause if sum not zero.
Sub FinChk()
Dim wsJournal As Worksheet
Dim VDRow As Range

    Set wsJournal = Worksheets("Journal")
    With wsJournal
    
        Set VDRow = Worksheets("Journal").Range("R7:R" & Cells(Rows.Count, "R").End(xlUp).Row)
        
            If Application.WorksheetFunction.Sum(VDRow) <> 0 Then
                MsgBox "Journal does not balance. Check column R."
                    Else
                
            If Application.WorksheetFunction.Sum(VDRow) = 0 Then
                MsgBox "Task completed! Please post."
                    End If
                End If
            End With
        
        Worksheets("AssJnl").Delete
        Worksheets("SPSJnl").Delete
        Worksheets("VolJnl").Delete
        
    End Sub
Any advice?