Copy cell value into row

[someone21]

Say a range(a2), i write fruits, so now i want it to be added as well into a row in another sheet(Sheet2)

like...

1. Apple

and then say I change I now put orange into the A2, so now I want another row in the Sheet 2.

like....

2. Orange..... and so on.

Basically a table of whenever typed into A2 will be saved into another sheet.....

 

[VoG]

Try this: right click Sheet1's tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A2" Then Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Target.Value
End Sub

 

[someone21]

Thanks, now what if I have another cell B2 whose value will be copied to the other sheet column B.... and so on for until column H.

How to make that quicker?

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(False, False)
    Case "A2": Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = Target.Value
    Case "B2": Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Offset(1).Value = Target.Value
    Case "C2": Sheets("Sheet2").Range("C" & Rows.Count).End(xlUp).Offset(1).Value = Target.Value
    Case "D2": Sheets("Sheet2").Range("D" & Rows.Count).End(xlUp).Offset(1).Value = Target.Value
    Case "E2": Sheets("Sheet2").Range("E" & Rows.Count).End(xlUp).Offset(1).Value = Target.Value
    Case "F2": Sheets("Sheet2").Range("F" & Rows.Count).End(xlUp).Offset(1).Value = Target.Value
    Case "G2": Sheets("Sheet2").Range("G" & Rows.Count).End(xlUp).Offset(1).Value = Target.Value
    Case "H2": Sheets("Sheet2").Range("H" & Rows.Count).End(xlUp).Offset(1).Value = Target.Value
End Select
End Sub

 

[someone21]

Does not work for me, and I want this procedure to start whenever I click the button (which is located on the sheet where the A2 is)

 

[VoG]

You don't click a button, you type a value in A2 and press Enter.

 

[someone21]

Thanks, but for some reason not working, probably some basic reasons, so the code should be within the sheet not module, which is what I did, I add some names into the cell, yet no output in the other sheet row.

And secondly, what if I want it to be a button(marco) to trigger this.