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