please how can i say in this code... do it when you see "ok" in cells of column "P" and if any empty cells ignore it and continue?

this is the Code:

I = I + 1
Cells(1, "J").Value = "Outlook sent Time,Dynamic msg preview count =" & I - 3
Loop While Cells(I, "P").Value = "ok"