Você pode fazer isso adicionando uma verificação IF adicional. Eu também otimizei o código indo de 3 loops para 1 loop, então o código é 3 vezes mais rápido, e coloquei as 3 verificações em um caso selecionado para que ele seja mais fácil.
Seu código seria algo como isto:
Sub info()
Dim i As Long
For i = 11 To ActiveSheet.Cells(Rows.Count, 11).End(xlUp).row
Select case ActiveSheet.Cells(i, 15)
Case is "No"
ActiveSheet.Range("P" & i) = "Not due"
Case is "-"
ActiveSheet.Range("P" & i) = "-"
Case is "Yes"
If not ActiveSheet.Range("P" & i) = "Complete" then
ActiveSheet.Range("P" & i) = "Pending"
End if
End Select
Next i
End Sub