INSERTAR FILA después de la ultima con datos

No explicas bien que es lo que necesitas, ¿a qué celda te refieres?, ¿Las filas insertas son copias o no?, así que te paso este ejemplo

Sub insertar_filas()
Set datos = Range("a17:c34")
With datos
    f = .Rows.Count
    .Rows(f).Resize(2).EntireRow.Insert
End With
End Sub

Efectivamente son copias de dos filas de otra hoja, que según el valor positivo o negativo de una fórmula, seleccionará una fila u otra, ejemp. Hoja 2 columna 3 fila 10 valor de la fórmula, fila 12 : fila a copiar si positivo, fila 13 fila a copiar si negativo.

Gracias

Este es un ejemplo de lo que entiendo quieres, la macro contara en la hoja 1 las filas comprendidas en un rango que inicia en la celda c17 de la hoja 1, leerá el valor de la fórmula ubicada en la hoja2 celda c10, si el valor es mayor o igual a 0 entonces copiara la fila 12 una fila después de la ultima que contiene datos en caso de ser menor a 0 copiara la fila 13

Sub copiar_fila()
Set h1 = Worksheets("hoja1")
Set h2 = Worksheets("hoja2")
Set datos = h1.Range("c17").CurrentRegion
With datos
    f = .Rows.Count:   valor_formula = h2.Range("c10")
    If valor_formula >= 0 Then
        .Rows(f + 1).Value = h2.Rows(12).Value
    Else
        .Rows(f + 1).Value = h2.Rows(13).Value
    End If
End With
End Sub

Buenas, cumple perfectamente la elección de positivo o negativo y lo copia en la hoja1, pero fuera del rango del rango de las filas b17..b34 .

Debe de insertarla inmediatamente después de la ultima fila que tiene datos(dentro del rango de las filas b17..b34 de la hoja1).

Gracias