Insertar Filas en Excel por medio de Macro

Tengo este pequeño código para que me copie los datos de una hoja a otra según un valor dado, pero necesito que adicional a eso me inserte la cantidad de celdas acorde al valor dado, el tema es que estoy realizando un formulario y al momento de insertar esos datos si ingreso otros me obviamente me sobrescribe los valores.

Que puedo hacer para que ya sea me inserte las filas o inserte en una fila nueva segun el valor dado sin que se sobrescriban los datos

Sub CopíarHjos()
If Range("H18") = "3" Then
Sheets("Hoja3").Range("G20:I22").Copy Destination:=Sheets("Hoja1").Range("N6:P6")
End If
If Range("H18") = "2" Then
Sheets("Hoja3").Range("G20:I21").Copy Destination:=Sheets("Hoja1").Range("N6:P6")
End If
If Range("H18") = "1" Then
Sheets("Hoja3").Range("G20:I20").Copy Destination:=Sheets("Hoja1").Range("N6:P6")
End If
If Range("H18") = "4" Then
Sheets("Hoja3").Range("G20:I23").Copy Destination:=Sheets("Hoja1").Range("N6:P6")
End If
If Range("H18") = "5" Then
Sheets("Hoja3").Range("G20:I24").Copy Destination:=Sheets("Hoja1").Range("N6:P6")
End If
End Sub