Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 9 And Target.Offset(, -2) <> "" Then Target = Date
If Target.Column = 9 And Not IsEmpty(Target) Then
If Me.ListObjects(1).ListRows.Count = Target.Row - 1 Then
Me.ListObjects(1).ListRows.Add
End If
End If
End Sub