Try this small macro:

Sub cForm()
For Each i In Array(6, 8, 10, 11, 15, 16, 20, 21, 25, 16)
Cells(5, i).Copy Range(Cells(6, i), Cells(10000, i))
Next
End Sub

--
Gary''s Student - gsnu200856


"Ra" wrote:

Please can you help with the following problem:

I would like to apply formulas in say Row 5, to the following cells:

F5, H5, J5, K5, O5, P5, T5, U5, Y5, Z5.

These formulas are the copied from Row 5 to Row 10,000.

The problem is, if I make a mistake in inputting data and I then need to
clear the contents of a cell or an entire row, the formulas are lost in that
row. How can I ensure that the formulas are not lost and still able to input
data in the cleared cells.

Mnay thanks,