Copiare le tre righe successive al numero

Buona sera voglio modificare la macro per copiare le 10 righe successive, ho modificato cosi ma non ho il risultato giusto ,ho
aggiunto un colonna la H perciò ho cambiato 7 in 8,ho modificato

Nriga = Nriga + 3 in Nriga + 10,ma ho le restanti 7 righe copiate vuote.Grazie Matteo





Option Explicit
Sub Copia_1_Incolla_3()
Dim i As Long, Nriga As Long
Dim Sh1 As String, Sh3 As String
Dim valricerca As Variant
Sh1 = "Foglio1"
Sh3 = "Foglio3"
Nriga = 1
valricerca = InputBox("Inserire Valore Di ricerca") * 1
Sheets(Sh3).Range("A1:H10000").ClearContents
For i = 1 To Sheets(Sh1).Cells(Rows.Count, 1).End(xlUp).Row
If Sheets(Sh1).Cells(i, 3) = valricerca Or Sheets(Sh1).Cells(i, 4) = valricerca Or _
Sheets(Sh1).Cells(i, 5) = valricerca Or Sheets(Sh1).Cells(i, 6) = valricerca Or _
Sheets(Sh1).Cells(i, 8) = valricerca Then
Sheets(Sh1).Range(Cells(i + 1, 1), Cells(i + 3, 8)).Copy _
Destination:=Sheets(Sh3).Range("A" & Nriga)
Nriga = Nriga + 10
End If
Next
End Sub