شكرا للجميع ....... بالخصوص .... اسلام .... ساجدة..... ياسر ..... رجب
تم التوصل الى هذا الكود من قبل رجب
Sub ragab()
Set Sh = ورقة3
x = [g13]
T = Application.Match(x, Sh.Columns("G:G"), 0)
If Not IsNumeric(T) Then T = Sh.[G1000].End(xlUp).Row + 1
Sh.Range("B" & T).Resize(1, 10).Value = Range("B13").Resize(1, 10).Value
End Sub