Consolidate Worksheets

[Durex]

I'm needing to consolidate 6 daily worksheets into 1 worksheet.
I also need the summary worksheet to be dynamic and update as the daily worksheets are populated. Any suggestions would be great!

I've been able to consolidate the worksheets, however the summary worksheets is not updating as data is entered.
This is the code I've been using:

Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
If Not Sheets(J).Name = "LISTS" Then
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("A1000000").End(xlUp)(2)
End If
Next
End Sub