مساعدة في كود ترحيل بيانات

[wissamkh]

السلام عليكم

عندي هذا الكود لترحيل بيانات الى عدة صفحات (كل صف يرحل الى صفحة معينة حسب بيانات الخلية(اسم الصفحة مرتبط بإسم الخلية)

أريد إضافة عليه كود لترحيل كل البيانات أيضا الى صفحة واحدة.

بحيث يصبح الترحيل كل صف الى الصفحة الخاصة به وايضا الى صفحة البيانات الكاملة

هذا الكود اللي عندي

Sheets(1).Activate
For Each f In Range("b16:b65")
If f <> "" Then
x = f.Value
Range(f.Offset(0, 0), f.Offset(0, 5)).Copy
Range(f.Offset(0, 7), f.Offset(0, 0)).Copy
lr = Sheets(x).Range("b" & Rows.Count).End(xlUp).Row
Sheets(x).Activate
Range("b" & lr + 1).Select
Selection.PasteSpecial xlPasteValues
End If
Next f
Sheets(1).Activate
Application.CutCopyMode = False
Range("b16:g65").ClearContents

هذا هو الملف المرفق

عند الضغط على ترحيل ينتقل كل صف الى الصفحة الخاصة به

ولكن أريد أيضا أن تنتقل كل الصفوف الى صفحة all

ترحيل.xlsm

[wissamkh]

للرفع