Помогите доделать макрос (рабочий диапазон, функция и т.п.)

Sub Macros()
'-------------begin----------
Dim LastValue As Single ' The value of last cell would be placed here
Dim I As Integer ' last row identificator
Dim Ifor As Integer ' common purpose variable
Dim J As Integer ' current counter - number of next going equal values
Dim tf As Boolean ' indicate whether previous cells value equal to current
Dim maxJ As Integer ' common counter - maximum number of next going equal values
I = ActiveCell.SpecialCells(xlLastCell).Row ' define last row
LastValue = Cells(I, 1).Value
J = 0 'initial values
tf = False ' ----
maxJ = 0 ' ----
For Ifor = 1 To I ' we are to path thru all rows in range
If Cells(Ifor, 1).Value = LastValue Then 'compare current value and the last one
If tf Then ' values are equal, here checked if previous value was also LastValue
J = J + 1 ' yes, add 1 to counter
Else
tf = True ' values equal but it's the first value to meet
maxJ = IIf(maxJ > J, maxJ, J) 'compare counters current and common,
' if number in current counter is more then in common one it
' become the value of common counter
J = 1 ' current counter is 1 again
End If
Else
tf = False ' values are not equal
End If
Next
maxJ = IIf(maxJ > J, maxJ, J)
Cells(I, 2).Value = CStr(LastValue) + "(" + Trim(Str(maxJ)) + ")" 'put result
'------------ end-------------
End Sub

Function myCount(iRange As Range) As String
    Dim iItem As Variant
    iItem = Range(Right(iRange.Address, 5)).Value
    myCount = iItem & " (" & Application.CountIf(iRange, iItem) & ")"
End Function

Function myCount(iRange As Range) As String 
 Dim iItem As Variant
 iItem = Range(Right(iRange.Address, 5)).Value
 myCount = iItem & " (" & Application.CountIf(iRange, iItem) & ")"
End Function

Function myCount(iRange As Excel.Range) As String
    Dim LastValue As Variant
    Dim J As Integer
    Dim tf As Boolean
    Dim maxJ As Integer
    Dim iCell As Range
    LastValue = Split(iRange.Address(False, False), ":")
    LastValue = LastValue(1)
    LastValue = Range(LastValue).Value
    J = 0
    tf = False
    maxJ = 0
    For Each iCell In iRange
        If iCell.Value = LastValue Then
            If tf Then
                J = J + 1
            Else
                tf = True
                maxJ = IIf(maxJ > J, maxJ, J)
                J = 1
            End If
        Else
            tf = False
        End If
    Next
    maxJ = IIf(maxJ > J, maxJ, J)
    myCount = CStr(LastValue) + " (" + Trim(Str(maxJ)) + ")"
End Function

Function myCount(iRange As Excel.Range) As String
    Dim LastValue As Variant
    Dim J As Integer
    Dim tf As Boolean
    Dim maxJ As Integer
    Dim iCell As Range
    For Each iCell In iRange
        If iCell.Value = Empty Then Exit For
        LastValue = iCell.Value
    Next
    If LastValue = Empty Then
        myCount = "" 'или 0
        Exit Function
    End If
    J = 0
    tf = False
    maxJ = 0
    For Each iCell In iRange
        If iCell.Value = LastValue Then
            If tf Then
                J = J + 1
            Else
                tf = True
                maxJ = IIf(maxJ > J, maxJ, J)
                J = 1
            End If
        Else
            tf = False
        End If
    Next
    maxJ = IIf(maxJ > J, maxJ, J)
    myCount = CStr(LastValue) & " (" & Trim(Str(maxJ)) & ")"
End Function

Function myCount(iRange As Excel.Range) As String
    Dim LastValue As Variant, iCell As Range
    Dim iFirstRow&, iLastRow&, TotalRows&, n&, i&, iCellRow$
    iFirstRow = iRange.Areas(1).Row
    iLastRow = iRange.Areas(1).Row + iRange.Areas(1).Rows.Count - 1
    TotalRows = iRange.Areas(1).Rows.Count
    For Each iCell In iRange
        If Len(iCell.Value) = 0 Then Exit For
        LastValue = iCell.Value
        iCellRow = iCell.Row
    Next
    If LastValue = Empty Then
        myCount = "" 'или 0
        Exit Function
    End If
    n = 1
    For i = iCellRow - 1 To iFirstRow Step -1
        If Cells(i, Application.Caller.Column) <> LastValue Then Exit For
        If Cells(i, Application.Caller.Column) = LastValue Then n = n + 1
    Next i
    myCount = CStr(LastValue) & " (" & n & ")"
End Function

Function myCount(iRange As Excel.Range) As String
    Dim LastValue As Variant, iCell As Range
    Dim iFirstRow&, iLastRow&, TotalRows&, n&, i&, iCellRow$
    iFirstRow = iRange.Areas(1).Row
    iLastRow = iRange.Areas(1).Row + iRange.Areas(1).Rows.Count - 1
    TotalRows = iRange.Areas(1).Rows.Count
    For Each iCell In iRange
        If Len(iCell.Value) = 0 Then Exit For
        LastValue = iCell.Value
        iCellRow = iCell.Row
    Next
    If LastValue = "" Then
        myCount = "" 'или 0
        Exit Function
    End If
    n = 1
    For i = iCellRow - 1 To iFirstRow Step -1
        If Cells(i, Application.Caller.Column) <> LastValue Then Exit For
        If Cells(i, Application.Caller.Column) = LastValue Then n = n + 1
    Next i
    myCount = CStr(LastValue) & " (" & n & ")"
End Function