Copy range of rows

[nkf531]

Is there a way for this to Copy the row it finds and the 5 rows beneath it?

Sub customcopy()
Dim strsearch As String, lastline As Integer, tocopy As Integer
Dim v As Variant, i As Long, j As Long, c As Range
strsearch = InputBox("Enter WBSE's To Copy Separated by commas")
v = Split(strsearch, ",")
lastline = Range("A65536").End(xlUp).Row

For i = 1 To lastline
  Set c = Range("a" & i & ":Z" & i)
  For j = LBound(v) To UBound(v)
    If Application.CountIf(c, "*" & v(j) & "*") > 0 Then
         Rows(i).Copy Destination:=Sheets("Replace").Cells(Rows.Count, "a").End(xlUp)(2)
         Exit For
    End If
  Next j
Next i

End Sub

or even for this to find this value then go so many cells to the right? and then downward for a specific value?

[JieJenn]

Sub customcopy()
Dim strsearch As String, lastline As Integer, tocopy As Integer
Dim v As Variant, i As Long, j As Long, c As Range
strsearch = InputBox("Enter WBSE's To Copy Separated by commas")
v = Split(strsearch, ",")
lastline = Range("A65536").End(xlUp).Row

For i = 1 To lastline
  Set c = Range("a" & i & ":Z" & i)
  For j = LBound(v) To UBound(v)
    If Application.CountIf(c, "*" & v(j) & "*") > 0 Then
         Rows(i & ":" & i + 5).Copy Destination:=Sheets("Replace").Cells(Rows.Count, "a").End(xlUp)(2)
         Exit For
    End If
  Next j
Next i

End Sub