copy to next blank cell in colum

[MyKeyJ]

Ok kinda new hope i get this explained correctly.
What I have - Sheet 1 cell a1 will be receiving numbers from an outside
application. Each time a new number is pasted to this cell I need it to be
copied to the next availble cell in another colum. Basicly i want to create
a list of all the numbers that are pasted to cell A1. I have set a macro up
on the sheet to copy cell A1 and paste it to another sheet when ever the data
in cell a1 is changed. My problem is creating the list - specificly getting
the new number to be pasted to the next blank cell in the specified colum.

 

[Mike Fogleman]

Put this code in Worksheet 1 code module

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long, ws As Worksheet

If Not Target.Address = "$A$1" Then Exit Sub

Set ws = Worksheets("Sheet2")
LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row
ws.Range("B" & LastRow + 1).Value = Target.Value

End Sub
Mike F

 

[MyKeyJ]

Thank You.
The provided code works perfect.

Thanks for your help.

MJ