Macro to Select last sheet with data in a workbook

[jmh1]

How can i write a macro that will paste data into the last sheet with data in a workbook? I have a workbook with 31 sheets (1 for each day of the month) and everyday i want to paste data into the sheet for that day. paste into sheet 1 on the 1st, 2 on the 2nd, etc..

How can i write a macro that will automate that process?

 

[birdman]

How about something like this:

Sub dates()

Dim MyStr As Integer

MyStr = Format(Now, "dd")
Sheets("Sheet" & MyStr).Select

End Sub

If the sheets are named Sheet1, Sheet2,...,Sheet31:
When the macro is run, if it is December 22, Sheet22 will be selected.

I dont know where or what you will be pasting, but that code will have to be added at the end of this code.

 

[jmh1]

that is so awesome!!

thank you very very much