ما الخطأ في الكود التالي؟

[الهرم الرابع]

()Private Sub CommandButton1_Click

Dim ahmed As Range
ahmed = sheet2.Range("a10000").End(xlUp).Row + 1
sheet2.Cells(ahmed, "a").Value = sheet1.Range("d2").Value
End Sub

[ابراهيم الحداد]

السلام عليكم ورحمة الله

غير العبارة

Dim ahmed As Range 

الى

Dim ahmed As long

و سيعمل معك الكود