opy Rows from Multiple Sheets to Master Sheet ('Author: JoeMo)

[elsg]

Hi.
the code below was created by: JoeMo
I'm trying to adapt, but I need to say which worksheet you were to NOT be copied

Sub MergeSheets()'Author: JoeMo
'http://www.mrexcel.com/forum/excel-questions/683803-copying-data-multiple-sheets-appending-master-sheet-reverse.html
    Application.ScreenUpdating = False
    Sheets("Orçamento").Activate
    For i = Sheets.Count To 2 Step -1
        Sheets(i).Range("A2:F500").Copy
        Worksheets("Orçamento").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
    Next i
  
End Sub

i try

Sub MergeSheets()
Dim wsheet As Worksheet
    For Each wsheet In Worksheets
        If wsheet.Name <> "Orçamento" Or wsheet.Name <> "Fornecedor" Or wsheet.Name <> "Mão de Obra" Then
        Application.ScreenUpdating = False
         Sheets("Orçamento").Activate
         For i = Sheets.Count To 2 Step -1
        Sheets(i).Range("A2:F500").Copy
        Worksheets("Orçamento").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
    Next i
   Next wsheet
End Sub

Don' work

Thank for helpe me

 

[elsg]

Hi
Any idea?

Thank you!!