Copy Row Down One

Originally Posted by JBeaucaire

Like so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LR As Long
LR = Cells(1, Rows.Count).End(xlToDown).Row
    
    If Not Intersect(Target, Range("A2:J2")) Is Nothing Then
        Application.EnableEvents = False
            Range("A2:J2").Copy Cells(LR + 1, 1)
        Application.EnableEvents = True
    End If
End Sub

Hi JBeaucaire,
Thanks for the quick and helpful response. I'm getting an error with your code though.
This seems to be causing the problem...

LR = Cells(1, Rows.Count).End(xlToDown).Row

I've attached my macro-enabled Excel spreadsheet for you to take a look at.
Again, thank you so much for the help!
Cheers.