Create a Table from data set

Oh. Didn't realize your column E was formatted as Text. Here, try

Sub GenReport()
Dim wsIn As Worksheet, wsOut As Worksheet
Dim LR As Long

Set wsIn = Worksheets("In")
With wsIn
LR = .Cells(Rows.Count, 1).End(xlUp).Row
    .Columns("A:C").Delete
    
    .Columns("E").TextToColumns
    
    .Range("F2").Formula = "=SUMIF($D$2:$D$" & LR & ",D2,$E$2:$E$" & LR & ")"
    .Range("F2").AutoFill .Range("F2:F" & LR)
    .Columns("F").Copy
    .Columns("F").PasteSpecial xlValues
    
    .Range("F1").Value = "Helper Column"
    .Range("A1:F" & LR).RemoveDuplicates 4, xlYes
End With

End Sub