Count employees working hourly

The code below will insert new lines if col B contains 2 time entries, and then will also update columns C to AI as well (the j loop does this)

As AliGW pointed out, your formulas for counts do require that the names be present in column A.

Sub test()

Dim ws As Worksheet
Dim lr As Long
Dim i As Long
Dim j As Long

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Set ws = Worksheets("Sheet1") 'change as needed to the name of the sheet with time info

lr = ws.Range("A" & Rows.Count).End(xlUp).Row
For i = lr To 3 Step -1 'the 3 in this line is the first row with employee data, change as needed
    If UBound(Split(ws.Range("B" & i).Value, Chr(10))) > 0 Then
        ws.Range("B" & i + 1).EntireRow.Insert shift:=xlDown, copyorigin:=xlfromabove
        ws.Range("B" & i).EntireRow.Copy ws.Range("A" & i + 1)
        ws.Range("B" & i).Value = Split(ws.Range("B" & i).Value, Chr(10))(0)
        ws.Range("B" & i + 1).Value = Split(ws.Range("B" & i + 1).Value, Chr(10))(1)
        For j = 3 To 35 'loops through columns C to AI to split multiple times in cell
            If UBound(Split(ws.Cells(i, j).Value, Chr(10))) > 0 Then
                ws.Cells(i, j).Value = Split(ws.Cells(i, j).Value, Chr(10))(0)
                ws.Cells(i + 1, j).Value = Split(ws.Cells(i + 1, j).Value, Chr(10))(1)
            End If
        Next j
    End If
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub