[Taha Okla]

الحل كان موجود في مشاركة الأخ المتميز (عاصم):

الكود الذي شارك به الأخ عاصم مع تعديل بسيط عليه
(لا تنسى التعديل على أسماء الأعمدة كي تصل للحل في مشروعك):

كود :

Dim dt As DataTable = New DataTable()
dt = DataGridView1.DataSource()

Dim Arr = From x In dt.AsEnumerable
            Group x By
                c1 = x.Field(Of String)("Name"),
                c2 = x.Field(Of String)("Company")
                Into Group Where Group.Count >= 1
            Select Name = c1, Company = c2, Count = Group.Count

DataGridView2.DataSource = Arr.ToList