Function sumplage(rng)
'-par UDF
frow = Split(Split(rng.Address, "$")(2), ":")(0)
drow = Split(rng.Address, "$")(4)
colrng = Cells(1, Split(rng.Address, "$")(1)).Column
'ta = rng.Value
i = Application.Caller.Row
j = Application.Caller.Column
For m = i - 1 To frow + 1 Step -1
If Cells(i, colrng) <> Cells(m, colrng) Then
sumplage = sumplage + Cells(m, colrng).Offset(0, j - colrng).Value
Else
Exit Function
End If
Next m
End Function