Macro copiar en X celdas con formula de X hojas

Muy buenas. Gracias a vuestra ayuda estoy avanzando mucho. Vuelvo a estar bloqueado. Os pego la macro que estoy haciendo y os explico donde no sé seguir.
En la segunda parte de la macro intento copiar la celda B3 un numero determinado de veces, que se establece en la celda A1. La celda B3 tiene una formula referenciada sobre la hoja CM1. Lo que intento es que cambie la formula para i=2 con la hoja CM2, con la i=3 con la hoja CM3 y así hasta cumplir con la condición establecida en A1.
Sub Sumarsi()'' Sumarsi Macro'
'   
nro = ActiveSheet.Range("A1")   
For i = 1 To nro   
Range("B2").Copy   
Range("B2").End(xlUp).Offset(1, i).Select   
ActiveSheet.Paste   
Application.CutCopyMode = False   
Cells(2, i + 2) = "CM " & (i + 1)
Next      
nro = ActiveSheet.Range("A1")   
For j = 1 To nro   
Range("B3").Copy   
Range("B3").End(xlUp).Offset(1, i).Select   
ActiveSheet.Paste   
Application.CutCopyMode = False   
'Selection.AutoFill Destination:=Range("B3:C3"), Type:=xlFillDefault
Range("B3:C3").Select   
Range("C3").Select  
ActiveCell.FormulaR1C1 = "=SUMIF('CM2'!C6:C7,RC1,'CM2'!C7)" 
'esta parte es la que no se hacer ya que 'CM j+1 no me lo da por bueno. 
Next
Espero haber sido lo bastante claro. No se explicarme bien en este lenguaje.