Что не так с этим кодом? Продолжает получать приложение определено ошибка

Question

Продолжайте выдавать ошибку, определенную приложением, я не думаю, что что-то не так

ActiveSheet.Cells(salesNo + 1, 5).Formula = "=CONCATENATE(""Subtotal for ""& Cells(salesNo - 1, 3).Address)"

Answer 1

АДРЕС в Excel

ActiveSheet.Cells(salesNo + 1, 5).Formula _
    = "=""Subtotal for ""&ADDRESS(" & salesNo - 1 & ",3)"

или

ActiveSheet.Cells(salesNo + 1, 5).Formula = "=" & Chr(34) _
    & "Subtotal for " & Chr(34) & "&ADDRESS(" & salesNo - 1 & ",3)"

Чтобы избавиться от знаков $:

ActiveSheet.Cells(salesNo + 1, 5).Formula _
    = "=""Subtotal for ""&ADDRESS(" & salesNo - 1 & ",3,4)"

или

ActiveSheet.Cells(salesNo + 1, 5).Formula = "=" & Chr(34) _
    & "Subtotal for " & Chr(34) & "&ADDRESS(" & salesNo - 1 & ",3,4)"

EDIT

ActiveSheet.Cells(salesNo + 1, 5).Formula _
    = "=""Subtotal for ""&INDIRECT(ADDRESS(" & salesNo - 1 & ",3,4))"

или

ActiveSheet.Cells(salesNo + 1, 5).Formula = "=" & Chr(34) _
    & "Subtotal for " & Chr(34) & "&INDIRECT(ADDRESS(" & salesNo - 1 & ",3,4))"

Answer 2

ActiveSheet.Cells(salesNo + 1, 5).Formula = _
      "=""Subtotal for "" & " & Cells(salesNo - 1, 3).Address