OFFSET function with multiple table

[xdenama]

I have 100++ sheet (table) with same format with difference high (total row not fix, will change). How to combine all table (sheet) in one sheet only. I prefer OFFSET function, any other solution is welcome. TQSM

 

[xdenama]

Does it make any difference we copy/paste values only?

Sub CombineTables_v3()
  Dim i As Long
 
  Sheets.Add Before:=Sheets(1)
  For i = 2 To Sheets.Count
    With Sheets(i)
      If .ListObjects.Count > 0 Then
        .ListObjects(1).Range.Copy
        Sheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
      End If
    End With
  Next i
  Sheets(1).Rows(1).Delete
End Sub

Wow, I salute you, it's working. Thank for your time. I very appreciate...

 

[Peter_SSs]

You're welcome. Glad we (seem to have) got there in the end.

 

[xdenama]

so re-read post#13

then try @Peter_SSs 's solution

This is the best way if could, because my table is live data, it's easy to refresh compare to copy and paste. Unfortunately my table have different headers name. Any idea, how to make it possible?

 

[sandy666]

This is the best way if could, because my table is live data, it's easy to refresh compare to copy and paste. Unfortunately my table have different headers name. Any idea, how to make it possible?

Sorry mate I don't use formulas so I can't help