VBA copy paste works only 1 time

[Akbarov]

Hello community,

I use following code to copy paste values from Active Sheet to different sheet. When I run this code first time, it works. But at next tries it does nothing.
What am I doing wrong?

Sub CopyRangeToD()
    Dim Rng As Range
    Dim LR As Long
    Dim LR1 As Long
    
        With ActiveSheet
        LR = .Cells(.rows.Count, "A").End(xlUp).Row
        End With
        
        With Worksheets("D")
        LR1 = .Cells(.rows.Count, "B").End(xlUp).Row + 1
        End With
        
    Set Rng = ActiveSheet.Range("A1:E" & LR)
    
        Rng.Copy
        Sheet10.Cells(LR1, "A").PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        

    End With
End Sub

 

[alansidman]

You are defining LR1 based upon Worksheet D and are pasting into Sheet10. Unless these sheets are the same then that appears to be your issue.

 

[Micron]

Something wrong with that code. It is either not all of it, or you somehow managed to disable compile errors. You have an orphaned End With.

 

[Akbarov]

You are defining LR1 based upon Worksheet D and are pasting into Sheet10. Unless these sheets are the same then that appears to be your issue.

Thanks king, that was the issue