Help need in VBA code for finding repeated data count number in excel?

Not sure what you want in steps 3 & 4, but this will give you the numbers and count...

Sub CountMobileNumbers()
    Dim d As Object, i As Long
    Dim v As Variant, k As Variant
    
    'Get mobile numbers and count them
    Set d = CreateObject("Scripting.Dictionary")
    v = Sheet1.Cells(1, 1).CurrentRegion.Value2
    For i = LBound(v) To UBound(v)
        If v(i, 1) Like "mobile*" Then
            d(v(i, 1)) = d(v(i, 1)) + 1
        End If
    Next i
    
    'Display numbers and count
    For Each k In d.keys
        Sheet1.Cells(Rows.Count, 2).End(xlUp).Offset(1) = k
        Sheet1.Cells(Rows.Count, 3).End(xlUp).Offset(1) = d(k)
    Next k
End Sub

working fine thanks.

You're welcome. Glad I could help!