Simple Excel VBA problem; Applying a formula to a column if it contains a number

[6.28318531]

Hello,

I have a relatively simple problem, You have two columns filled with numbers. I want my macro to go through and check the columns or one of the colums to see if it has a number in it, then operate on those numbers and display an output in a third column .

I tried this;

Sub Total()
'
' Total Macro
'

'


If IsNumeric(Range("H8", Range("H8").End(xlDown))) Then
Dim CopyRange As Range
Set CopyRange = Range("J8", Range("J8").End(xlDown))
   Sheets("Sheet1").Range(CopyRange.Address).FormulaR1C1 = "=RC[-1]*RC[-2]"

End If

End Sub

I know I can simply drag a formula but I want to automate this, and I also want to be able to reuse the same thing later.

Thanks for any help.

 

[Vailanor]

You can try something like this: Sub Total()Dim lRow As LongDim c As RangelRow = Cells(Rows.Count, 8).End(xlUp).RowFor Each c In Range("H8" & lRow) If IsNumeric(c.Value) Then c.Offset(0, 2).FormulaR1C1 = "=RC[-1]*RC[-2]" End IfNext cEnd Sub