(From d In dt.AsEnumerable
Group d By
k=d("Effective Date").toString.Trim,
k2=d("Change Percent").toString.Trim,
k3=d("Out of stock date/Reset Date").toString.Trim,
k4=d("Loction").toString.Trim
Into grp = Group
Let ra = New Object(){grp.First()(0),k,grp.First()(2),k2,grp.First()(4),grp.First()(5),k3,grp.First()(7),k4,grp.First()(9)}
Select r = dtClone.Rows.Add(ra)).CopyToDataTable