Hello kurish,
Welcome to the Forum!
Copy this macro into Excel workbook "aa". The instructions are below. Change the name of "bb" in the code to the name you are using. It is marked in red.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow
Dim NextRow
Dim StartRow
Dim Wkb As Workbook
Dim WkbName As String
If Target.Cells(1, 1).Address <> "$A$1" Then Exit Sub
StartRow = 2 'Column "C" row in workbook "BB"
WkbName = "BB"
On Error Resume Next
Set Wkb = Workbooks(WkbName)
If Err <> 0 Then
MsgBox "Workbook " & WkbName & " is not open."
Exit Sub
End If
On Error GoTo 0
With Wkb
LastRow = .Cells(Rows.Count, "C").End(xlUp).Row
NextRow = IIf(LastRow < StartRow, StartRow, LastRow + 1)
.Cells(NextRow, "C") = Target.Cells(1, 1)
End With
End Sub
How to Save a Worksheet Event Macro
1. Copy the macro using CTRL+C keys.
2. Open your Workbook and Right Click on the Worksheet's Name Tab for the Worksheet the macro will run on.
3. Left Click on View Code in the pop up menu.
4. Paste the macro code using CTRL+V
5. Make any custom changes to the macro if needed at this time.
6. Save the macro in your Workbook using CTRL+S
Bookmarks