Autocopy Value of a cell into another worksheet cell

Hi,

I have attached a template below.

If you click the button "Insert Store" in sheet 1. It creates a new row and manually need to enter Store Name in column B. Eg B6 you Enter "Melbourne"

At the same time, a column will be copied and created in sheet 2. Here the columns start from F and you can see F4 is named as Store Name. I want this to be changed as the name entered in B6 - Melbourne.

When the button is clicked again, B7 will be created and when user name it, i want G4 to change the Store name to that. this should happen every time a user click that button.

Any help is appreciated.

Right Click on the sheet name at the bottom of excel

select view code

paste this code

close visual basic.

Ready for you.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Row < 5 Or Target.Column <> 3 Then Exit Sub
Sheets("Sheet2").Cells(4, Target.Row).Value = Target.Value
End Sub

Thank you. This is exactly what I wanted to do. You are the best