Count Number Of Rows In Specific Column Up To Empty Cell

I want to count the number of rows in a specific column up to an empty cell and assign this value to a cell. I don't want to count the total number of rows but instead I want the number of the first group of rows.

For example, column A may have cells ranging from row 2 to 10 and then from row 12 to 20, so I only want to count the first group.

The below code counts the total which is not what i need.

Code:
Sub test()
Dim Mycount As Single
Mycount = Application.Count(Range("A:A"))
Cells(1, 4) = Mycount
End Sub