VBAで教えてください。

下のようなコードを見つけて勉強しています。
簡単な応用ができません・・・。
P1=今日の日付
G=訪問日
I=御礼の手紙を書いた日付
として、
訪問日が過ぎていて、御礼の手紙が未入力なら“超過があります”とメッセージと色で知らせるものですが、
下のような感じで
P1=今日の日付
I=御礼の手紙を書いた日付
K=返事が来た日付

御礼の手紙を書いた日付から20日が過ぎてもK列に返事が来た
日付が入力がないものには
・“返事がありません”とメッセージ
・薄い灰色に行を塗る

というようにしたいのですが、教えていただけないでしょうか。
自分では、+20という表現をどのように書いたらいいのかというとこ
ろで躓いてしまいました。
どうぞ宜しくお願いします。


Sub test ()
Dim SH As Worksheet
Dim i As Integer
Dim s As String
Set SH = Worksheets("表")
s = "超過はありません。"

i = 1
Do Until SH.Cells(i + 3, "A").Value = ""
If SH.Cells(i + 3, "G").Value < SH.Range("P1") And _
SH.Cells(i + 3, "I").Value = "" Then
SH.Cells(i + 3, "A").Resize(, 16).Interior.ColorIndex = 3
s = "超過があります。"
End If
i = i + 1
Loop
MsgBox s
End Sub