Insertar nuevas filas y autocompletar con fórmula

Question

Estoy intentando insertar nuevas filas si se cumple una condición particular. Quiero arrastrar la fórmula desde la última fila a la fila insertada, pero aparece un error al hacerlo. A continuación se muestra mi código:

  For i = 1 To diff
    MsgBox ("Difference is " & diff)

    With Sheet5.Rows(ModelLastRow.Row + 1)
       .Insert Shift:=xlDown
    End With

    insertRowRange = "C" & CStr((ModelLastRow.Row))

    pasteRowRange = "C" & CStr((ModelLastRow.Row + 1))
    Range("insertRowRange").AutoFill Destination:=Range("pasteRowRange")
  Next

Answer 1

Parece que solo estás intentando copiar una sola celda una fila hacia abajo. Voy a suponer que "ModelLastRow" es la única celda que desea copiar. En cada paso del ciclo, desplazo ModelLastRow hacia abajo en uno para copiar otra fila.

 Dim ModelNextRow As Range
 MsgBox ("Difference is " & diff)
 For i = 1 To diff

     Set ModelNextRow = Union(ModelLastRow, ModelLastRow.Offset(1, 0))
     ModelLastRow.AutoFill Destination:=ModelNextRow, Type:=xlFillDefault

     Set ModelLastRow = ModelLastRow.Offset(1, 0)
   Next

 End Sub

Ojalá esto funcione para ti, ¡mucha suerte!