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

Sub tarheel()

Dim supplyername As String, orgin As String, purchasorder As Variant, d As Date, invoice As String, v As Variant, q As Variant, u As Variant, up As Variant, c As Variant, t As Variant, method As String

Dim itemname As Variant

supplyername = Worksheets("طلب جديد").Range("h4").Value

orgin = Worksheets("طلب جديد").Range("h6").Value

purchasorder = Worksheets("طلب جديد").Range("h8").Value

d = Worksheets("طلب جديد").Range("m4").Value

invoice = Worksheets("طلب جديد").Range("n7").Value

itemname = Worksheets("طلب جديد").Range("g12:g17").Value

v = Worksheets("طلب جديد").Range("j12:j17").Value

q = Worksheets("طلب جديد").Range("k12:K17").Value

u = Worksheets("طلب جديد").Range("l12:l17").Value

up = Worksheets("طلب جديد").Range("m12:m17").Value

c = Worksheets("طلب جديد").Range("n12:n17").Value

t = Worksheets("طلب جديد").Range("o12:o17").Value

method = Worksheets("طلب جديد").Range("k19").Value



Worksheets("طلبات الشراء").Range("a6:a6").Value = itemname

Worksheets("طلبات الشراء").Range("b6:b6").Value = v

Worksheets("طلبات الشراء").Range("c6:c6").Value = supplyername

Worksheets("طلبات الشراء").Range("d6:d6").Value = orgin

Worksheets("طلبات الشراء").Range("e6:e6").Value = purchasorder

Worksheets("طلبات الشراء").Range("f6:f6").Value = invoice

Worksheets("طلبات الشراء").Range("g6:g6").Value = d

Worksheets("طلبات الشراء").Range("h6:h6").Value = q

Worksheets("طلبات الشراء").Range("i6:i6").Value = u

Worksheets("طلبات الشراء").Range("j6:j6").Value = up

Worksheets("طلبات الشراء").Range("m6:m6").Value = t

Worksheets("طلبات الشراء").Range("n6:n6").Value = c

Worksheets("طلبات الشراء").Range("o6:o6").Value = method



End Sub