Copiar N veces un rango de celdas y pegar contiguo debajo

Intentalo de este modo:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$7" Then
    If Target.Value > 0 Then
        For i = 1 To Target.Value
            x = Range("B" & Rows.Count).End(xlUp).Row + 1
            [B8:E18].Copy Destination:=Cells(x, 2)
        Next i
    End If
End If
End Sub

¡Gracias Elsa! Me sirvió bastante, pero una consulta, si yo selecciono tres, evidentemente se me crean tres, pero lo que quiero es que solo me cree dos de esas tres ya que cuento con una ya creada que es de donde se copian los datos. 

Cómo podría hacerlo con el código que me pasaste? 

Te lo agradecería mucho, gracias.