Умножить значения двух массивов и сохранить каждый результат в новый массив в Excel VBA

Question

В VBA от Excel я пытаюсь умножить два массива и получить результаты всех отдельных лиц в другом массиве. Например Тс = (1,2,3) ПК = (4,5,6) и я хочу получить этот новый массив: TcandPc = (4,10,18) Это то, что я делаю, и я получаю сообщение, что внешний процесс недействителен. спасибо в Advaced за вашу помощь

  Dim Tc As Variant
  Dim Pc As Variant
  Dim TcandPc As Variant
  Dim i As Variant
  Dim j As Variant
  Dim k As Variant

  Tc = Range("D4:D15").Value
  Pc = Range("E4:E15").Value
       For Each i In Tc
           For Each j In Pc
               For Each k In TcandPc
                  TcandPc = i * j
               Next k
            Next j
       Next i
  Range("g4:g15").Value = Application.Transpose(TcandPc)