checking whether a number of cells have values

I don't know what you want to do if you find an empty cell but tinker with this

Sub vCheck()
For Each c In Range("O5:O16, P5:P16")
    If c.Value <> "" Then c.Select
Next c
End Sub

For the "c.Select" part of the code is where you put your own code.