اريد تعديل هذا الكود مشكورين

[atob]

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

في هذا الملف كود واريد التعديل عليه

وهذا هو الكود

Sub add()

Dim iNx

Dim Last As Long

Dim myrange As Range

'''''''''''''''''''''''

If Len(Trim(Range("C6"))) = 0 Then Exit Sub

'''''''''''''''''''''''

iNx = Evaluate("MATCH(C6,myrange,0)")

'''''''''''''''''''''''

Select Case IsError(iNx)

    Case True

	    If MsgBox("åá ÊÑíÏ ÇÖÇÝÉ ÇáßÊÇÈ ÇáÌÏíÏ" & vbCr & Range("C6").Value, vbYesNo + vbMsgBoxRight) = vbYes Then

		    Last = Sheets("m").Range("H" & Rows.Count).End(xlUp).Row + 1

		    Sheets("m").Range("H" & Last).Resize(1, 4).Value = Range("C6").Resize(1, 4).Value

		    MsgBox "Êã ÈÍãÏ Çááå "

	    End If

    '''''''''''''''

    Case False

	    If MsgBox("åá ÊÑíÏ ÇÖÇÝÉ ÇáÚÏÏ " & vbCr & Range("C6").Value, vbYesNo + vbMsgBoxRight) = vbYes Then

		    Last = iNx

		    Sheets("m").Range("J" & Last).Value = Val(Sheets("m").Range("J" & Last)) + Val(Range("E6"))

		    MsgBox "Êã ÈÍãÏ Çááå "

	    End If

End Select

End Sub

وهذا الملف المرفق يوضح اكثر عن طلبي

اضافة الي جدول.rar

واشكركم جزيل الشكر

[رجب جاويش]

أخى الفاضل

غير السطر

Last = iNx

الى السطر

Last = iNx + 9

[atob]

اشكرك اخي رجب جزيل الشكر والله لا يحرمك الاجر