Find Value, Copy And Paste Macro

The macro finds the value in cell D11 (which is the name of a product) in a worksheet called "Summary1". It then looks for this value in another worksheet called "Output", specifically in a column with a named range called "Products". If the value being searched is found in the "Products" named range column (in the worksheet "Output"), the code below copies the entire row for it, to another sheet called "OutputSummary1". I would like to change the code as follows:

1) Instead of copying the entire row, for which the searched for value is found, from the sheet "Output" to the sheet "SummaryOutput1", I would like to instead only copy the values in columns A, B, and E to the sheet "OutputSummary1". Also, I would like the values to be pasted pastespecial so that the formulas in the sheet "Output" are not copied over, and only the values are copied.

2) Secondly, I would like to know how to perform the find procedure (searching for cell D11 contents) on all sheets in the same workbook beginning with the word "Summary" (There will be worksheets called Summary1, Summary2, Summary3, etc. that the macro should be performed on.) As well, the pasting should be perfomed on all respective sheets called OutputSummary1, OutputSummary2, OutputSummary3, etc.

Sub CopyPaste()
With Worksheets(1).Range("Products")
Set c = .Find(Worksheets("Summary1").Range("D11").Value, LookIn:=xlValues) 'this identifies the value D11 in worksheet called Summary1
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.EntireRow.Copy Destination:=Worksheets("OutputSummary1").Range("a" & Worksheets("OutputSummary1").Range("a65536").End(xlUp).Row + 1)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub