I have a workbook that has an entry spreadsheet and an actual data table sheet. The entry spreadsheet is used to enter new data into the table without having to have users access the table directly. I am doing this with a macro that adds the new data to the next open row. Each row has about 20 different data entry points

Sub AddData(

' Macro3 Macr
' Macro recorded 12/1/2003 by Brian McGuir

Sheets("input").Range("A20:AB20").Copy Destination:=
Sheets("database").Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0
End Su

The macro is exceuted by ctrl+a. The macro itself works fine, I just need some modifications

1) is there a way to add just a button on the toolbar, or possibly to a cell beneath the entry row in order to get the data adde
2)After the data has been added to the table, I would like the macro to erase the data entered in the input shee
3)I would like the color of the destination text and cell to be different once it has been added

Any help would be greatly appreciated. Thanks in advance

Brian