title: VBA copy rows that meet criteria to another sheet pasting only values
body: <p>I would like to modify this macro to paste the copied rows with their original formatting and only their values as the rows being copied have formulas in them. I tried placing PasteSpecial xlPasteValues after Rows(j+6) but that did not do the trick. </p>
  
  <pre><code>    Sub customcopy()
      Dim strsearch As String, lastline As Integer, tocopy As Integer
  
      strsearch = CStr(InputBox("enter the string to search for"))
      lastline = Range("A65536").End(xlUp).Row
      j = 1
  
      For i = 1 To lastline
         For Each c In Range("C" &amp; i &amp; ":Z" &amp; i)
            If InStr(c.Text, strsearch) Then
                 tocopy = 1
             End If
          Next c
          If tocopy = 1 Then
               Rows(i).Copy Destination:=Sheets("Sheet2").Rows(j + 6)
               j = j + 1
          End If
      tocopy = 0
      Next i
  
      End Sub
  </code></pre>