Copy/paste A Found Range

I found a macro that searches a column on each worksheet and copies the searched for value to another worksheet but. I would like to modify this to copy the searched for value and the next 10 cells in the row but I am not able to figure out how to accomplish this. I highlighted in red the piece I would like to modify.



For Each sh In ActiveWorkbook.Worksheets
With sh.range("c10:c10000") 'this determines where to search

For I = LBound(MyArr) To UBound(MyArr)
'If you use LookIn:=xlValues it will also work with a
'formula cell that evaluates to "@"
'Note : I use xlPart in this example and not xlWhole
Set Rng = .Find(What:=MyArr(I), _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
FirstAddress = Rng.Address
Do

Rng.Copy NewSh.range("d1000000").End(xlUp).Offset(1,0)

Set Rng = .FindNext(Rng)
Loop While Not Rng Is Nothing And Rng.Address FirstAddress
End If
Next I
End With
Next sh