在vba代码中添加其他目标单元格

我有下面的代码，它从一张纸上复制一个范围，粘贴到另一张纸上，并进行计算（忽略彩色值）

我想做的是，我想在这段代码中添加额外的单元格，以执行相同的函数，但公式略有不同

下面给出了要使用的公式，目标单元格为AH 101和AH102

 "=PERCENTILE.INC(" & Rng.Address(, , , True) & ",90%)*24"
 "=PERCENTILE.INC(" & Rng.Address(, , , True) & ",50%)*24"

这是我的全部代码：

Sub TPNoRed()
 Dim cel As Range
 Dim Rng As Range
 Dim arr As Variant
 Dim i As Long
 Application.ScreenUpdating = False
 For Each cel In Sheets("TP").Range("A3:D30")
 If cel.Font.Color = 0 Then
 If Rng Is Nothing Then
 Set Rng = cel
 Else
 Set Rng = Union(cel, Rng)
 End If
 End If
 Next cel
 ReDim arr(Rng.count - 1)
 If Not Rng Is Nothing Then
 For Each cel In Rng
 arr(i) = cel
 i = i + 1
 Next cel
 Sheets("TP").Range("AH1").Resize(UBound(arr) + 1).Value = Application.Transpose(arr)
 Set Rng = Sheets("TP").Range("AH1:AH" & Sheets("TP").Cells(Rows.count, "AH").End(xlUp).Row)
 Sheets("WBR45").Range("AH103").Formula = "=PERCENTILE.INC(" & Rng.Address(, , , True) & ",99%)*24"
  Sheets("WBR45").Range("AH103").Value =    Sheets("WBR45").Range("AH103").Value
 Sheets("TP").Columns("AH:AH").ClearContents  
 Application.ScreenUpdating = True
 End Sub

---

请记住，使用缩进可以使代码更容易阅读和理解。如果你对此进行分类，收到建议的机会就会增加。谢谢。我读对这个问题了吗？你是在问如何重复说

Sheets（“WBR45”）.Range（“AH103”）.Formula=“=PERCENTILE.INC”（&Rng.Address（，，True）和“，”，99%）*24”

，然后将

103

更改为

102

，将

99%

更改为

50%

？不要更改它…将其他单元格和公式添加到同一代码中以执行相同的功能