Macro to Copy Formula Down Until Data in Adjacent Column Becomes Text

This is how I have been copying a formula down using a macro. It references an adjacent column (A in this case) and copies to the where the data in A ends. Recently I have come across several situations where the column I need to reference also has text. I sort the column to place all the text values at the bottom. Is there a way to copy the formula and stop when it gets to this text?

Please Login or Register  to view this content.

Here is an example if what I am asking is unclear. I want to prevent the value error
Example.xlsm

Like so:

Please Login or Register  to view this content.