Summary report, auto copy /insert

Hello
I am trying to do a summary of multiple sheets that will update as new data is keyed in.

Example Daily Overtime report TEST..xlsx

Please refer to attachment. What I would like to do is key information onto sheet "CREW 1" and any row that contained information would be copied and inserted onto the summary sheet under the corresponding header automatically.
Any help is greatly appreciated
Thanks

Ok, I have came across the code below which gets me real close to what I need to happen, but I loose all formating of the cells when I run the code. Is there a way to maintain formating and do what I need it to do?

Sub MergeSheets()
Const sRANGE = "A1:Z100"
Dim iSheet, iTargetRow As Long, oCell As Object, bRowWasNotBlank As Boolean
Dim iTop, iLeft, iBottom, iRight As Long
'Sheets(1).Select: Sheets.Add
Sheets(1).Select
Cells.Select
Selection.Clear
bRowWasNotBlank = True
For iSheet = 2 To ThisWorkbook.Sheets.Count: DoEvents
For Each oCell In Sheets(iSheet).Range(sRANGE).Cells: DoEvents
If oCell.Column = 1 Then
If bRowWasNotBlank Then iTargetRow = iTargetRow + 1
bRowWasNotBlank = False
End If
If oCell.MergeCells Then
bRowWasNotBlank = True
If oCell.MergeArea.Cells(1).Row = oCell.Row Then
If oCell.MergeArea.Cells(1).Column = oCell.Column Then
Sheets(1).Cells(iTargetRow, oCell.Column) = oCell
iTop = iTargetRow
iLeft = oCell.Column
iBottom = iTop + oCell.MergeArea.Rows.Count - 1
iRight = iLeft + oCell.MergeArea.Columns.Count - 1
Sheets(1).Range(Cells(iTop, iLeft), Cells(iBottom, iRight)).MergeCells = True
End If
End If
End If
If Len(oCell) Then bRowWasNotBlank = True
Sheets(1).Cells(iTargetRow, oCell.Column) = oCell
Next oCell
Next
Sheets(1).Activate
End Sub

Daily Overtime report TEST..xlsm
I added the "What I want Summary Sheet" and now it throws an error. You will have to delete that sheet to run the code.