Repeat VBA code but for a different range

[Smiles80]

Hi All,
I have the following code; I want to duplicate this code but referencing a different range but within the same sheet, any ideas?

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("A1").Address Then

' Get the last row on our destination sheet (using Sheet2, col A here)...
Dim intLastRow As Long
intLastRow = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row

' Add our value to the next row...
Sheet2.Cells(intLastRow + 1, "A") = Target.Value

End If

End Sub</code>

 

[Macropod]

This thread seems to have been duplicated by: https://www.mrexcel.com/forum/excel-questions/1052151-duplicate-vba-code-different-range.html
As per Rule 12 (http://www.vbaexpress.com/forum/faq.php?faq=new_faq_item#faq_new_faq_item3), kindly don't create multiple threads on the same topic. Thread closed.