Hello,

I have this macro which I have generated and edited with the recorder.


Sub Macro3()

    Worksheets(1).Activate
    Range("W1785:ag1786").Copy
    Sheets("Summary").Select
    Range("C4").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
    
    Worksheets(2).Activate
    Range("W1785:ag1786").Copy
    Sheets("Summary").Select
    Range("C7").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
   
    Worksheets(3).Activate
    Range("W1785:ag1786").Copy
    Sheets("1 - 2 - X Summary").Select
    Range("C10").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
    Worksheets(4).Activate
    Range("W1785:ag1786").Copy
    Sheets("Summary").Select
    Range("C13").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
    Worksheets(5).Activate
    Range("W1785:ag1786").Copy
    Sheets("Summary").Select
    Range("C16").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
End Sub
This macro copies a range from the first sheet of the workbook and pastes it in the sheet named "Summary" in C4
then copies the same range from the second sheet of the workbook and pastes it in the sheet named "Summary" in C7
and so on...I would like to begin the copy/paste action, starting from the first worksheet and continuing in the order the worksheets are in the workbook. This is the reason I edited the above macro as above.

Is it possible to shorten the macro and to do the above for all the sheets found in a workbook, starting from sheet1 and continuing to the last sheet of the workbook, but disregard sheets named, Summary2 and summary3?

Thank you