checking whether a number of cells have values

Not know what code you want to execute depending on value makes this a little difficult to understand but try this code but replace the c.select with your executable code.

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

Sorry if this doesn't help but it works for my understanding.