Perhaps the following code should do the task for you:-
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim lRow As Long
lRow = Range("A" & Rows.Count).End(xlUp).Row
For Each cell In Range("F2:F" & lRow)
If cell.Value <> "" Then
cell.EntireRow.Font.Strikethrough = True
cell.EntireRow.Font.Strikethrough = False
Application.EnableEvents = True
Application.ScreenUpdating = True
The code is a Worksheet_Change event which means it needs to be placed in the work sheet module. To do this, right click on the sheet tab, select "view code" and in the big white field that appears, paste the above code.
Go back to your work sheet. Each time that you enter a date in a cell in Column F, a strikethrough will appear across the row of data.
Please test the code in a copy of your work book first.
Following is a link to my test work book which shows you how it all works:-
I hope that this helps.