title: Consolidate 650 worksheets in the same workbook down to one page
body: <p>This code gives me everything from all the sheets and not even in a way that columns are matched up.  I made a VBA script the took all 127 individual excell sheets and combined them into one workbook with 600+ sheets.  I want only the 127 sheets called "Function Dependency" numbered blank - 127 to be combined into one sheet.  The columns sometimes have useless data in the first row but otherwise have similar columns.  Is there a better way to do this??</p>
  
  <pre><code>Sub MergeAll()
  Dim r As Long, ws As Worksheet, rAll As Long, wsAll As Worksheet
  Dim i As Long
  
  Worksheets.Add After:=Worksheets(Worksheets.Count)
  ActiveSheet.name = "All"
  Set wsAll = ActiveSheet
  rAll = 2
  For Each ws In Worksheets
  If ws.name &lt;&gt; "All" Then
      r = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
      For i = 1 To r
          wsAll.Cells(rAll, 1) = ws.name
          wsAll.Cells(rAll, 2) = ws.Cells(i, 1)
          wsAll.Cells(rAll, 3) = ws.Cells(i, 2)
          rAll = rAll + 1
      Next i
  End If
  Next ws
  End Sub
  </code></pre>