Is this what you need?

Sub PasteFormula()

Range("B3").Formula = "=RIGHT(LEFT(A3,16),3)"

End Sub
--
Cheers,
Ryan


"Nina" wrote:

I download a file every month and I need to format it adding columns,
deleting rows, etc - also I need to add some formulas to the file so that the
data is formatted according to my specifications and to be used in another
model.

The formula is to be pasted on cell B3 ... and the formula is
=RIGHT(LEFT(A3,16),3).

Thanks