需要帮助将公式插入可变长度列中

Question

我只需要获取此公式即可插入VBA的列中。

Sub Step5Formula()
  ActiveSheet.Range("H5").Formula = ""=A2 & IF(COUNTIF($A$1:A1,A1:A100)=-1,""," - " & COUNTIF($A$1:A1,A1:A100)+1) & ""of"" &COUNTIF($A$1:A100,A2)""
End Sub

我希望公式能够计算出一定数量的数字，并且输出1of2或2of2取决于该数字的实例。该公式本身每天都有效，但是在VBA中输入后似乎无效。