Try this
    If Application.CountA(Sheets("Main").Range("O5:P16")) > 0 Then
        'code here
    End If
This will run your code if there is any value at all in Range("O5:P16")

Hope this helps