بازخواني و رفع اشكال در يك كد نويسي

[4017]

با سلام
ميشه اشكال كار اين ماكرو رو بهم بگين؟
فقط كپي ميكنه. عمل پيست انجام نميشه
ممنون

Sub rep()
On Error Resume Next
Dim c
Dim i
i = 0
For i = 2 To 10 Step 2
If  Val(Sheet1.Range("a" & i).Value) > 1300 Then
    Sheet1.Range("a" & i, "d" & i).Select
    Selection.Copy
    Exit For
        Dim d As Range
        For Each d In Sheet2.Range("a2:a10")
        If d.Value = "" Then
            Sheets("sheet2").Select
            Range(d).Select
            ActiveSheet.Paste
            Application.CutCopyMode = False
            Exit For
        End If
        Next d
End If
Next i
End Sub

[Javid Mokhtari]

با سلام
ميشه اشكال كار اين ماكرو رو بهم بگين؟
فقط كپي ميكنه. عمل پيست انجام نميشه
ممنون

Sub rep()
On Error Resume Next
Dim c
Dim i
i = 0
For i = 2 To 10 Step 2
If  Val(Sheet1.Range("a" & i).Value) > 1300 Then
    Sheet1.Range("a" & i, "d" & i).Select
    Selection.Copy
    Exit For
        Dim d As Range
        For Each d In Sheet2.Range("a2:a10")
        If d.Value = "" Then
            Sheets("sheet2").Select
            Range(d).Select
            ActiveSheet.Paste
            Application.CutCopyMode = False
            Exit For
        End If
        Next d
End If
Next i
End Sub

با سلام.
کد Exit For شما رو از ادامه حلقه میندازه بیرون.چون عمل کپی قبل از Exit For هستش ، عمل کپی انجام و چون عمل paste بعد از Exit For قرار دارد اجرا نمیشود.