Sub Main
Call TabsFromList
Call jason
End Sub

will call our two programs sequentially. As currently written, jason will
put headers in A1, E1, I1, M1, etc.

This version will start in D4 rather than A1:

Sub jason()
Sheets("summary").Activate
k = 4
For Each w In Sheets
nm = w.Name
If nm < "summary" Then
Cells(4, k).Value = nm
k = k + 4
End If
Next
End Sub

Only two lines changed. The headers will now go in:
D4, H4, L4, .....

--
Gary''s Student - gsnu200730