As per your example (with borders), supposing that your first title is in cell A1 and that the sheet has no other complied or used cells outside your table have a try with my macro to be copied in a standard vbe module: 
Option Explicit
Sub Count_Blank()
    Dim x, lr, rw, cnt
    Dim flag   As Boolean
    lr = ActiveSheet.UsedRange.Rows.Count - 1
    For x = 2 To lr                               '<- adjust if titles aren't in row 1
        If Range("A" & x) <> "" Then
            If flag = False Then
                rw = x
                flag = True
            Else
                Range("B" & rw) = cnt             '<- reports number of blank lines
                cnt = 0
                flag = True
                rw = x
            End If
        Else
            cnt = cnt + 1
        End If
    Next x
    If x > rw Then Range("B" & rw) = cnt          '<- reports number of blank lines for last ID
End Sub