Hi Don-

Good tip. I'm going to steel that for one of my projects and implement a
Select Case.

Select Case Target.Address
Case Range("A1").Address
dlr = Cells(Rows.Count, "b").End(xlUp).Row + 1
Target.Copy Cells(dlr, "b")
Case Else

End Select

John

"Don Guillett" wrote:

Why not just make it automatic when you change cell a1. Right click sheet
tabview codecopy\paste this. Now when you change cell a1 the data will
goto the next available row in col B

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < Range("a1").Address Then Exit Sub
dlr = Cells(Rows.Count, "b").End(xlUp).Row + 1
Target.Copy Cells(dlr, "b")
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Euan Ritchie" wrote in message
...
I'm trying to make a Macro that once i click the button it will copy from
A1
and paste into B2. the next time i click the Button i still want it to
copy
from A1 but paste in B3, then B4..B5 so on and so forth!
is this possible?