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.

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" <(E-Mail Removed)> wrote in message
news:577BC6B7-D40C-4FC4-816E-(E-Mail Removed)...
> 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.

Thank You.
The provided code works perfect.

Thanks for your help.

MJ

"Mike Fogleman" wrote:

> 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" <(E-Mail Removed)> wrote in message
> news:577BC6B7-D40C-4FC4-816E-(E-Mail Removed)...
> > 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.
>
>
>