coping cells data from one sheet to another and dropping it to the next row to be ready to a new entery

[ShawnSPS]

What I need is the “notes” button to populate the current date and time into column (b) “znotes” and copy “a2” and place into column “D” in “znotes” each time the notes button is press from the current/active worksheet the user has open. So essentially the date and the current worksheet name will be populated and copied to znotes creatating a new entry every time the user press that notes button. So the user will only have to enter just the message or note. In the notes area on znote worksheet. I hope I explained my intentions clearly because I do need help with this





There is only 3 tabs(ws) that has the notes button “ablank” which hidden and is the master worksheet, two Generic or fake client names which are SHAWNCO AND VINES. All other worksheets were created before the notes button was created.



The current code I have copies what I need but will not drop down to the next row to be ready for a new entry .



Public Sheetname As String

Sub Appl_Goto()

Sheetname = ActiveSheet.Name

Application.Goto Reference:=Worksheets("Znotes").Range("b2")

With Range("b2")

.Value = Now()

.NumberFormat = "mm/dd/yyyy h:mm:ss AM/PM"

End With

Application.Goto Reference:=Worksheets("Znotes").Range("d2")

With Range("d2")

.Value = Sheetname

End With

Sheetname = ""

End Sub

Blankcounts3.xls

Shared with Dropbox

www.dropbox.com