I have a two sheet workbook. The first sheet named "Financial_Data" performs
the calculations and saves the total to a cell named PTotal. I am trying to
develop a macro to open the next sheet (Historical_Data), insert the date,
then move into the next column and paste the PTotal cell contents.
Everytime the macro is run, preferably daily, I would like it to drop to the
next empty row and paste the current info.
When I run the macro below, it overwrites what was previously there.
Can anyone help with this?

Sub HistDataMove()

Sheets("Historical_Data").Select
ActiveCell.Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=PTotal"
ActiveCell.Offset(1, -1).Range("A1").Select
End Sub