title: Multiple Sheets merged into one excluding few sheets. Error
body: <p>I have ran this macro however it is copying every worksheet available, even I have mentioned not to copy the particular worksheets.</p>
  
  <pre><code>Sub Combine()
  
  Dim J As Integer
  Dim ws As Worksheet
  
  On Error Resume Next
  
  If ws.Name &lt;&gt; "Invoicing" And ws.Name &lt;&gt; "Master Data" Then
      Sheets(1).Select
      Worksheets.Add
      Sheets(1).Name = "Combined"
      Sheets(2).Activate
      Range("A1").EntireRow.Select
      Selection.Copy Destination:=Sheets(1).Range("A1")
  End If
  For J = 2 To Sheets.Count
      Sheets(J).Activate
      Range("A1").Select
      Selection.CurrentRegion.Select
      Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
      Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
  Next
  
  End Sub
  </code></pre>