Silinen Hücreler tekrar zaman koyma

[efem67]

Değerli Hocalarım ve üstadlar;
Bir Makro dizininde

On Error Resume Next
Dim sil As Integer

If sil = vbYes Then
For i = 14 To Cells(Rows.Count, "B").End(3).Row
If Cells(i, "B").Value = "" Then
i = i - 1: Exit For
End If
Next


Range("F14:F" & i).Select
Selection.ClearContents
Selection.Value = "08:00"

With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0



End With
Range("F14").Select
MsgBox "Artık" & vbLf & "ESKİ VERİLER SİLİNDİ" & vbLf & "2017"

End If
End Sub

Not: selection value kısmına silinen Yerlere tekrar "08:00" değerini nasıl koyabilirim
Benim koyduğum Selection.Value="08:00" olunca hepsini sıfır yapıyor

 

[efem67]

Not: selection value kısmına silinen Yerlere tekrar "08:00" değerini nasıl koyabilirim
Benim koyduğum Selection.Value="08:00" olunca hepsini sıfır yapıyor