C列に文字が入力されていて、A列が空白の場合には
A列に本日の日付を入力する
Sub 日付加算()
Dim 初回連絡日 As Date
Dim 経過日 As Date
Dim 行 As Long
For 行 = 2 To 11
初回連絡日 = Cells(行, 2)
経過日 = DateAdd("d", 14, 初回連絡日)
If Cells(行, 3) = "" Then
Cells(行, 3) = 経過日
End If
Next 行
End Sub
