Text in Macro

Hello,

I'm new to writing macros and wonder if anyone can help me with a couple of areas I'm stumbling on?

Firstly, let me say that I am writing this macro for other people to use so I'm doing my best to make it easy to access.

1. I want to add some text to a cell based on some input from the user.
How do I get a box to come up saying "Which month?";
And then use their reply to fill in the box with month total?
(ie. if they say January, I want the cell to say 'January Total')
2. I'm trying to get the macro to add some subtotals to my data.
I'd like a box to come up again saying "Number of first row?";
And then put a sum in the active cell to add from the given row down to the row above the active cell.
So far I've got:
Dim x As Integer
x = InputBox("Number of first row?")
ActiveCell.FormulaR1C1 = "=SUM(R(x)C:R[-1]C)"
but the sum isn't working properly.
3. Finally(!)
Can I embed an existing macro inside a new one without seeing all the lines?

Thanks you very much for any help or tips that anyone can give,
Regards,

Lucy

Hello Again,

I think perhaps I'm being too ambitious so am happy to leave points 1 and 3, but if anyone knows how I could get the subtotal to work, I would be really very grateful for your advice and time.

My input box gets the row number, but I can't work out how to define the start of the sum as the cell in row x of the active column.

Many Thanks to everyone for reading this,
Lucy.