لدي مشكلة في الكود

[saif.almfrji]

السلام عليكم . 

عملت جدولين الاول لحساب يومي والاخر سجل عام و اردت ترحيل بيانات الحساب اليومي للسجل الاسبوعي ولكن المشكلة انه يتم نقل اليوم والتاريخ والاسم مع البيانات

وهذا الكود 

Sub one()
Dim lr As Integer
Sheets(2).Activate
lr = [a1000].End(xlUp).Row

Range("a3:i" & lr).Copy

Sheets(1).Activate

Range("a" & [a1000].End(xlUp).Row + 1).Select

Selection.PasteSpecial xlPasteValues
Sheets(2).Activate
Range("a3").Select
Range("a3:i1000").ClearContents

x = MsgBox("تم الترحيل")
End Sub

[سليم حاصبيا]

من الضروري رفع جزء بسيط من الملف(حوالي 20 صف) لمعرفة الخطأ