I have not seen the original suggestion but IsEmpty tests for
uninitialized variables and not for an empty cell. The following should
(could) work:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 3 Then Exit Sub
If Range("F1") = "" Then Range("F1").Value = Target.Value
End Sub

HTH
Kostis Vezerides