Using the same formula for each row of a worksheet

[litestream]

In cell F2, I use a procedure called RemoveNumeric(D2) which removes the numerals from an alphanumeric stock code contained in cell D2 leaving me with the portion of the code that relates to a specific client.

Function RemoveNumeric(Rng As String) As String
Dim Tmp As String
Dim i As Integer

Tmp = Rng
For i = 0 To 9
Tmp = Application.Substitute(Tmp, i, "")
Next i
RemoveNumeric = Tmp
End Function

How can I apply this to each row of my worksheet in column F, bearing in mind that I continually add and remove stock lines from my sheet, short of pasting it into each cell regardless of whether the line is populated with data or not?

The top row of the worksheet contains column headings.

 

[Barry Katcher]

ASAP Utilities has a cool function that will remove either alpha or numeric characters from a cell or range of cells. Free download at:

http://www.asap-utilities.com/

 

[litestream]

Is it not possible to make an entire row contain the same formula for each row, regardless of whether it is populated with data at the time or not?

The ASAP Utilities macro assumes that all the cells contain data.

I am constructing a stock control worksheet and rows are inserted and deleted as and when stock changes.

 

[patrickmuldoon99]

What is the problem if the cell does not have data? Surely it would just return an empty string into the cell where the formula sits?