طلب مساعدة في ملف اكسل

[كتاب التوحيد]

بسم الله الرحمن الرحيم
والحمد لله رب العالمين
وصلى الله على محمد وآل محمد الائمة والمهديين وسلم تسليما

اخواني الانصار من عنده خبرة في ملفات اكسل

عندي جدول يتكون من مئات السطور
اريد ان اقارن الخانة الاولى من سطرين متتابعين واحذف التكرار ...

هذا يتم تحقيقة بالماكرو ... عندي كود يحذف سطرتين متشابهين لكن انا لا اريد اقارن السطرين فقط الخانة الاولى من السطرين ...

sub a()
Sheets.Add after:=Sheets(1)
Sheets(1).[A1].CurrentRegion.AdvancedFilter Action:= _
xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True
End Sub


من يستطىع مساعدتي من فضلكم ؟