Transpose the Punch Time

Option Explicit

Sub macro_1()
Dim ws1, ws2, count1, count2
Set ws1 = Sheets("Raw Data")
Set ws2 = Sheets("Out Put")
count1 = 2
count2 = 1
Do Until ws1.Range("C" & count1) = ""
    If ws1.Range("C" & count1) = ws2.Range("C" & count2) Then
        ws2.Cells(count2, Columns.Count).End(xlToLeft).Offset(0, 1) = ws1.Range("E" & count1)
        count1 = count1 + 1
    Else
        count2 = count2 + 1
        ws2.Range("A" & count2 & ":E" & count2).Value = ws1.Range("A" & count1 & ":E" & count1).Value
        count1 = count1 + 1
    End If
Loop
End Sub