Used cells count

Use Counta

    Dim rng    As Range
    Set rng = ActiveSheet.Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp))
    MsgBox Application.WorksheetFunction.CountA(rng)