Cómo hago para pegar una formula en ciertas hojas de excel

Buenas noches expertos

Cordial saludo

La presente para solicitarles el favor de decirme cómo puedo modificar el siguiente código para que se aplique una fórmula en ciertas hojas creadas de excel. La macro que he creado es la siguiente:

Sub procedimiento()
estados = Val(InputBox("Estados"))
For i = 1 To estados
For j = 1 To estados
ActiveSheet.Name = "Renta " & i
Cells(i, j) = WorksheetFunction.MMult("Probabilidad " & i, "Ingreso " & i)
Next j
Next i
End Sub

Mediante código se ha creado un grupo de hojas (Probabilidad 1, probabilidad 2 e Ingreso 1 e Ingreso 2. En la hoja Renta 1 se ha de plasmar el resultado de multiplicar cada elemento de Probabilidad 1 por cada elemento de Ingreso 1. Ésto para un número ilimitado de hojas Renta & i (multiplicar matrices); sin embargo, el código no me ha funcionado. Agradezco mucho la colaboración que me puedan brindar al respecto.

Atentamente

Clara Romero