I am having problems executing the following code:

I have the code to loop to row 6 for now to see if it works ....row 6 has the first occurance of what I need to execute... in cell D6 the value is:

Cell D6 =(C6/1000)*Q6 and format is "currency"

does this constitue as a formula in VB because it has no stated functions?

I tried to delete the second AND condition and just leave the ISNUMERIC condition ...but this still does not execute?


This is part of the second If statement that I would like to execute based on cell D6 value
And IsNumeric(Cells(iRow, iCol).Value) And Cells(iRow, iCol).HasFormula = True Then

Here is my Procedure! 

 Sub WN100formulafill()

ApplicationScreenUpdating = False
'oCol = Net Revenue Share column
'iCol = Billable Revenue column
'jCol = Agency column
Dim iRow As Long, eCol As Long
oCol = 15
iCol = 4
 JCol = 10
    For iRow = 1 To 6

   If Not IsNumeric(Cells(iRow, iCol).Value) And Not Left(Cells(iRow, iCol).Formula, 10) = "=SUBTOTAL(" _
        And IsNumeric(Cells(iRow, iCol).Value) And Cells(iRow, iCol).HasFormula = True Then
            Cells(iRow, oCol).Formula = "=" & Cells(iRow, iCol).Address & _
                "-Sum(" & Cells(iRow, JCol).Address & "," & Cells(iRow, 14).Address & ")"
  
         
        End If
    Next iRow
ApplicationScreenUpdating = True

End Sub

Any ideas! Would be much appreciated

Thanks in advance,