Most efficient way to remove datatable duplicates while summing the dulpicates

When line 10,11 is the expected out put we can do following:

Assign Activity:
dtResult = YourOriginDataTableVar.Clone

Assign Activity:
dtResult =

(From d in YourOriginDataTableVar.AsEnumerable
Group d by k=d("Company").toString.Trim into grp=Group
Let sm = grp.Sum(Function (x) CInt(x("Money").toString.Trim))
Let ra = new Object(){k, grp.First()(1), sm, grp.First()(3), grp.First()(4)}
Select r = dtResult.Rows.Add(ra)).CopyToDataTable

Also have a look here: