Can I get the Formula(s) in any cell as Text using VBA written to another cell(s).!

Dear Forum,

Is it possible to get Formulas in any cell or a Given Range in a Single Row or Row below Column Headings to be written as text to another cell..

Example:

Lets Say Col A - A1 - Sr.No - COlumn heading.
CEll A2 = ROW()-1 is the formula in the cell I need to have this formula written in another cell..

I know I can do it manually but I want this to be done using VBA as there are lot of formulas which are already there and typing them would take a lot of time..

Lets say I need this formula to be written as Text like "=ROW()-1" in cell Z2..

Is this possible, like ti Just give the range and then i get these formulas as TEXT VALUES in different cells..

Warm Regards
e4excel