Thread: Copy Row Down One

Hi All,
I'm using this code from another thread, but I want it to copy data down a row instead over a column. I tried this code, but it didn't work! Could you help me fix it?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LC As Long
LC = 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(1, LC + 1)
        Application.EnableEvents = True
    End If
End Sub

Should be easy for you Excel programming experts!

Thanks in advance!

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.

Try this instead.

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