(From d in YourDataTableVar.AsEnumerable
Group d by k=d(“Region”).toString.Trim into grp=Group
Let st = grp.Sum(Function (x) CDbl(x(Total Profit).toString.Trim)
Let ra = new Object(){k, st}
Select r = dtTarget.Rows.Add(ra)).CopyToDataTable
Depending on how the Total Profit Values are read in from Excel maybe we have to adopt this part accordingly