كيفية الحفاظ على الكود

[الصـقر]

Sub trheel2()

If Range("G4") <> ("H4") = 1 Then

MsgBox "ãÌãæÚ ÇáãÏíä áÇ íÓÇæì ÇáÏÇÆä"

Else

Dim LR As Integer

LR = [c1000].End(xlUp).Row

Range("A6:i" & LR).Copy

Sheets("ÚÇã").Range("B" & Sheets("ÚÇã").[b10000].End(xlUp).Row + 1).PasteSpecial xlPasteValues

Application.CutCopyMode = False

Range("C6:H" & LR).ClearContents

MsgBox "Êã ÇáÊÑÍíá ÈäÌÇÍ", vbOKOnly, "ÊäÈíÉ"

End If

End Sub

هذا كود ترحيل بيانات من شيت الى اخر بالبدايه يرحل البيانات المطلوبه بشكل صحيح وفجاء وبدون اى تعيدل على الكود يرحل البيانات المطلوبه بشكل خاطى فما السبب ارجوا الافاده وشكرا