Insert Date & Time to a neightbouring column when I double click in column A

I swear God, this code was working yesteday.. but not today....

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

' Çàïóñê ôîðìû ââîäà ïî äâîéíîìó øåë÷êó ïî ÿ÷åéêå
    On Error Resume Next
    If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
        Cancel = True
        If Target.Offset(-1, 0) <> vbNullString Then
            If Target = vbNullString Then
                Range("F" & Target.Row) = Date + Time
            End If
        End If
    End If
End Sub