title: Tables in Same worksheet
body: <pre><code>    Option Explicit
  
      Sub Macro70()
  
      Dim wb As Workbook
      Dim ws As Worksheet
      Dim ws2 As Worksheet
      Dim sheets_Count As Integer
      Dim sheets_Name() As String
      Dim i As Integer
      sheets_Count = Sheets.Count
  
      ReDim sheets_Name(0 To sheets_Count - 1)
  
      For i = 1 To sheets_Count
         sheets_Name(i - 1) = "'" &amp; ActiveWorkbook.Sheets(i).Name &amp; "'!R1C1:R17C2"
      Next i
  
      Set wb = ThisWorkbook
      For Each ws2 In wb.Sheets
  If ws2.Name = "consolidated" Then Exit For
  Next
  
      If ws2 Is Nothing Then
      Set ws2 = wb.Sheets.Add()
      ws2.Name = "consolidated"
      End If
  
      With ws2
          .Range("A1").Consolidate sheets_Name, xlSum, True, True, False
      End With
  
      End Sub
  
  
      Sub Macro71()
  
      Dim wb As Workbook
      Dim ws As Worksheet
      Dim ws2 As Worksheet
      Dim sheets_Count As Integer
      Dim sheets_Name() As String
      Dim i As Integer
      sheets_Count = Sheets.Count
  
      ReDim sheets_Name(0 To sheets_Count - 1)
  
      For i = 1 To sheets_Count
         sheets_Name(i - 1) = "'" &amp; ActiveWorkbook.Sheets(i).Name &amp; "'!R24C1:R35C2"
      Next i
  
      Set wb = ThisWorkbook
      For Each ws2 In wb.Sheets
  If ws2.Name = "consolidated" Then Exit For
  Next
  
      If ws2 Is Nothing Then
      Set ws2 = wb.Sheets.Add()
      ws2.Name = "consolidated"
      End If
  With ws2
          .Range("A24").Consolidate sheets_Name, xlSum, True, True, False
      End With
  
      End Sub
  
  
      Sub Macro72()
  
      Dim wb As Workbook
      Dim ws As Worksheet
      Dim ws2 As Worksheet
      Dim sheets_Count As Integer
      Dim sheets_Name() As String
      Dim i As Integer
      sheets_Count = Sheets.Count
  
      ReDim sheets_Name(0 To sheets_Count - 1)
  
      For i = 1 To sheets_Count
         sheets_Name(i - 1) = "'" &amp; ActiveWorkbook.Sheets(i).Name &amp; "'!R39C1:R50C2"
      Next i
  
      Set wb = ThisWorkbook
     For Each ws2 In wb.Sheets
  If ws2.Name = "consolidated" Then Exit For
  Next
  
      If ws2 Is Nothing Then
      Set ws2 = wb.Sheets.Add()
      ws2.Name = "consolidated"
      End If
  With ws2
          .Range("A39").Consolidate sheets_Name, xlSum, True, True, False
      End With
  
      End Sub     
  </code></pre>
  
  <p>I have replaced it now when i run macro 71 &amp; 72 has Run-Time Error '1004' Source Reference overlaps Destination Area, i am not sure where i am doing something wrong. Please assist.</p>