Sum Duplicate Data Without Doubling Up

i have is a worksheet, columns A thru J. Column B has names in it, Column F has dollar amounts. i need to create a macro to find the duplicate entries in column B, add them in column F (which would overwrite the existing amount) and then delete all the duplicates. all of the columns between A and J contain data. i was able to do this on an totally different sheet using columns A and D. but i did not have other data in the sheet. it's been a long time since i completed this other sheet and i need a refresher course in vba.

Sub finddups()
Dim Sh As Worksheet
Dim LastRow As Long
Dim Rng As Range
Set Sh = Worksheets(1)
Sh.Columns(5).Insert
LastRow = Sh.Range("A65536").End(xlUp).Row
With Sh.Range("A1:A" & LastRow).Offset(0, 4)
.FormulaR1C1 = "=IF( COUNTIF(R1C[-4]:RC[-4],RC[-4])>1,"""",SUMIF(R1C[-4]:R[" & LastRow & "]C[-4],RC[-4],R1C[-1]:R[" & LastRow & "]C[-1]))"
.Value = .Value
End With
Sh.Columns(4).Delete........................

i need to convert this old macro to work with my new sheet. since the underlying ideas are the same i think it should work. however i am unable to get it right. i always end up deleting all my data.