Excel sayfasında silme

[seddur]

Merhaba.Aşağıdaki kod ile "Anasayfa" "A" sutununa eklediğim açıklamalar Döküm sayfasındaki veri ile karşılaştırılıyor ve eşleşen satırın "F" sutununa DOLU diye yazdırılıyor.Yapılmak istenen açıklamayı sildiğimde eşleşen satırın "F" sutunundaki DOLU ifadesini silmesi işlemidir.Uygun olursa bu kodların içine yazılsın.Yardımınız için Teşekkür ederim.

Dim i As Long, Veri, dict As Object
On Error Resume Next
Set dict = CreateObject("Scripting.Dictionary")
Veri = Range("A2:F" & Cells(Rows.Count, "A").End(3).Row).Value
'Range("F2:F" & Cells(Rows.Count, "A").End(3).Row) = ""
For i = LBound(Veri, 1) To UBound(Veri, 1)
dict.Add Veri(i, 1) & Veri(i, 2) & Veri(i, 4) & Veri(i, 5), i
Next i
For i = 1 To Sheets("Anasayfa").Cells(Rows.Count, "A").End(3).Row
Acıklama = Sheets("Anasayfa").Range("A" & i).Comment.Text
If Acıklama <> "" And dict.exists(Acıklama) Then
Range("F" & dict(Acıklama) + 1) = "DOLU"
End If
Next i
On Error GoTo 0