Count Blank Cells Between Two Dates Without Selecting Each Cell?

I have a spreadsheet that contains dates in column A, the number of rows between each date can vary. Selecting a cell with a date in will activate a checklist in the form of a UserForm.

I am trying to create a macro that will count the number of rows from one cell with a date, to the next cell with a date, and then resize the selection for printing.

So far I have this;

Code:
Sub test()
Application.ScreenUpdating = False
Set InitialCell = ActiveCell

[Code]....

My problem with this code is that when it reselects the InitialCell, the UserForm is reactivated. Is there a way to achieve the same results without having to reselect the InitialCell, and therefore the UserForm wont pop up? I tried adding the Unload UserForm1 line but it doesnt have any affect, the form still pops up.