Insertar la fila VBA

Range("b4").EntireRow.Insert
Innocent Impala