Yes that gets the event, and you can get the free line below that wit

[vba]

Set Tgt = Tgt.Offset(0, 1).End(xlDown).Offset(1, 0)
[/vba]

then insert a row to add the new data

[vba]

Tgt.EntireRow.Insert[/vba]

But will you allow new events to be added via the form? And should the event box be a combobox pre-loaded, and you should allow incomplete dates to be entered and auto-complete it.