COUNTIF across all worksheets of the same workbook

You can also use a macro for this:

Sub Rectangle1_Click()
 Dim iSheet As Integer
  On Error Resume Next
  Worksheets("Adminsheet").Range("B2:E2").Value = 0
  For i = ThisWorkbook.Sheets.Count To 2 Step -1
   Worksheets("Adminsheet").Range("B2").Value = Worksheets("Adminsheet").Range("B2").Value + WorksheetFunction.CountIf(Worksheets(i).Range("A:A"), "Manager")
   Worksheets("Adminsheet").Range("C2").Value = Worksheets("Adminsheet").Range("C2").Value + WorksheetFunction.CountIf(Worksheets(i).Range("A:A"), "Clerk")
   Worksheets("Adminsheet").Range("D2").Value = Worksheets("Adminsheet").Range("D2").Value + WorksheetFunction.CountIf(Worksheets(i).Range("A:A"), "Programmer")
   Worksheets("Adminsheet").Range("E2").Value = Worksheets("Adminsheet").Range("E2").Value + WorksheetFunction.CountIf(Worksheets(i).Range("A:A"), "HR")
  Next i
End Sub