Percentile function in VBA, Excel

Maybe:

Sub NumbersGoHere()

Dim cel As Range
Dim strStart As String
Dim strEnd As String

For Each cel In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
    If cel.Value <> cel.Offset(-1).Value Then
        strStart = cel.Offset(, 1).Address
        cel.Select
        Do Until ActiveCell.Value <> ActiveCell.Offset(1).Value
            ActiveCell.Offset(1).Select
        Loop
        strEnd = ActiveCell.Offset(, 1).Address
        Range("C" & ActiveCell.Row).Formula = "=Percentile(" & strStart & ":" & strEnd & ",80%)"
    End If
Next

End Sub

Glad to help. If you are satisfied with the solution please mark the thread as [SOLVED] using the thread tools at the top.

Also, on any thread you can show appreciation to those who have helped you by clicking the * Add Reputation below their posts.

Welcome to the forum.