Try something like this:
Sub vbax54544()
Dim lr, lrH, x As Long
Dim nameV As Variant
Dim nmChoice As String
Dim sumX As Integer
nmChoice = InputBox("enter the name to sum", "Sum Whom")
lr = Cells(Rows.Count, 6).End(xlUp).Row
sumX = 0
For i = 2 To lr
If Cells(i, 6).Text = nmChoice Then
sumX = sumX + Cells(i, 4).Value
End If
Next i
MsgBox "Total for " & nmChoice & " = " & sumX
End Sub
This will total everyone separately using column H and I:
Sub vbax54544_1()
Dim lr, lrH, x As Long
Dim nameV As Variant
Dim nm
nmChoice = InputBox("enter the name to sum", "Sum Whom")
lr = Cells(Rows.Count, 6).End(xlUp).Row
Range("F2:F" & lr).Copy Destination:=Range("H1")
ActiveSheet.Range("$H$1:$H" & lr).RemoveDuplicates Columns:=1, Header:=xlNo
lrH = Cells(Rows.Count, 8).End(xlUp).Row
ReDim nameV(1 To lrH)
For x = 1 To lrH
nameV(x) = Cells(x, 8).Value
Next x
For nm = LBound(nameV) To UBound(nameV)
sumX = 0
For i = 2 To lr
If nameV(nm) = Cells(i, 6) Then
sumX = sumX + Cells(i, 4).Value
End If
Next i
Cells(nm, 9).Value = sumX
Next nm
End Sub