If multiple comboboxes not used then stop populating cells at last combobox input

Hi, I am new to this and this is probably very simple but I am trying to setup a userform with multiple combo boxes and text boxes. I have the form setup and it is working fine except for one thing.

The form has a league combobox and if you pick the league it then goes to Date (input date from calendar). Once the league has been chosen you then go to home or away teams and it will give you a drop down of teams for that league. The scores are also combo boxes with 0-9. This all works fine but if I only want to add in say 4 match results for that week the form populates my sheet with 4 scores but 12 dates.

e.g.

28/10/2013 Team A 1 Team B 1
28/10/2013 Team C 1 Team D 0
28/10/2013 Team E 3 Team F 2
28/10/2013 Team G 0 Team H 2
28/10/2013
28/10/2013
28/10/2013
28/10/2013
28/10/2013
28/10/2013
28/10/2013
28/10/2013

My question is how can I add in say just 4 match results and only populate the spreadsheet with those 4 scores so it stops adding in the additional 8 lines with just the dates. Code for this form is below.

Any help would be greatly appreciated.
-----------------------------------------------------------------

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

I changed the spreadsheet as a work around so that you have to input the date in for each match which worked nicely albeit a lot of extra code. code is below

Private Sub CmdAdd_Click()
Dim FirstBlankCell As Range
Set FirstBlankCell = Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
FirstBlankCell.Activate

ActiveCell.Offset(0, 0).Value = Format(Me.Date1.Value, "DD/MMM/YYYY") 'set col B ' - ADDED THIS FOR EACH MATCH changing Date1 to 2, 3, 4 etc.
ActiveCell.Offset(0, 1).Value = Me.HomeTeam1.Text 'set col C
ActiveCell.Offset(0, 2).Value = Me.HomeScore1.Text 'set col D
ActiveCell.Offset(0, 3).Value = Me.AwayTeam1.Text 'set col E
ActiveCell.Offset(0, 4).Value = Me.AwayScore1.Text 'set col F
ActiveCell.Offset(1, 0).Value = Format(Me.Date2.Value, "DD/MMM/YYYY") 'set col B
ActiveCell.Offset(1, 1).Value = Me.HomeTeam2.Text 'set col C
ActiveCell.Offset(1, 2).Value = Me.HomeScore2.Text 'set col D
ActiveCell.Offset(1, 3).Value = Me.AwayTeam2.Text 'set col E
ActiveCell.Offset(1, 4).Value = Me.AwayScore2.Text 'set col F