VBA Help – Combine multiple sheets into one sheet but copy header once...

[WWII_Buff]

Here is the line of code that does work:

Set CopyRng = sh.Range("A4:BA143")

However I have 50+ sheets with headers in A4:BA4 with data starting in A5:BA5.

This is what I tried to write but it's not working:

If Application.CountA(Sheets("DetailSummarySheet").Range("A4:BA4").EntireRow) = 0 Then
sh.Range("A4:BA4").Copy Sheets("DetailSummarySheet").Range("A1")
 End If
sh.Range("A5", sh.Range("BA5").End(xlDown)).Copy
Last = sh.Range("A5", sh.Range("BA5").End(xlDown)).Rows.Count

Any help is appreciated.