Argumento no opcional y error 9 en macro de excel vba

Buenas noches
Cordial saludo
La presente para solicitar a ustedes el favor de ayudarme con unos cálculos que estoy realizando en una macro de excel. La idea es que tengo cuatro hojas de cálculo (p1, r1, p2 y r2) y en cada una de ellas se ingresan unos valores para calcular v1 y v2. El código que he colocado en el editor vba es el siguiente:
Sub cálculos()
p1 = Sheets(p1).Range( "A1:C9" )
p2 = Sheets(p2).Range( "A1:C9" )
r1 = Sheets(r1).Range( "A1:C9" )
r2 = Sheets(r2).Range(" A1:C9" )
v1 = p1(i, j) * r1(i, j) + p1(i, j + 1) * r1(i, j + 1) + p1(i, j + 2) * r1(i, j + 2)
v2 = p2(i, j) * r2(i, j) + p2(i, j + 1) * r2(i, j + 1) + p2(i, j + 2) * r2(i, j + 2)
Debug.Print El valor de v1 es ; v1; y el valor de v2 es ; v2
End Sub
Estoy utilizando la nomenclatura i,j para que realice los cálculos para todos los valores que se coloquen en las diferentes hojas. Al correr esta macro se genera el mensaje de error 9, subíndice fuera del intervalo y al depurar marca en amarillo la línea 2 (donde está p1=Sheets...) y aún no logro entender por qué se genera el error a pesar de haberte solicitado ayuda con f1 en excel. Solicito a ustedes el favor de indicarme de qué forma puedo corregir la falla pues en verdad no entiendo. De igual manera, marca v1 cuando el error es "argumento no opcional" y tampoco entiendo la razón del error.

Agradezco mucho su atención y su colaboración.
Atentamente
Clara Romero