Macro to copy/paste a title bar row to the bottom of the data set (Different row each day)

I have a set of daily data that is cumulative, but seperated by day with a new title bar. I have been copying the title bar and pasting it in the row at the end of the data from the prior day. I want to make a macro that will automatically copy the title from row 1, and paste it at the bottom row of the data set. Please keep in mind that the bottom row will change each day as new data is added.