consolidating multiple Sheets into a master tab

Try this:

Sub CTGuards(): Dim ws As Worksheet, wo As Worksheet, c As Long: c = 1
Set wo = Sheets("Output"): For Each ws In Worksheets
            If ws.Name <> wo.Name Then
wo.Cells(1, c).Resize(11, 4).Value = ws.Range("F14").Resize(11, 4).Value
c = c + 5:  End If: Next: End Sub