inserting formula into worksheet range not working

[ajm]

Hi, i have the following snippet which i am using to insert formulas into a worksheet. the first formula gets inserted where there are blank cells in the specified column, the second is supposed to overwrite whatever already exists in the specified column. the second one isn't working. Have i got the range specified correctly?

With Worksheets("Forward Plan")
   
    x = .Range("b36").End(xlDown).Row
    
   If x > 1 Then
   On Error Resume Next
        With .Range("Ag36:Ag" & x)

            .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=IF([@[Contract Value/Risk Matrix - Code]]="""",""10%""*1,VLOOKUP([@[Contract Value/Risk Matrix - Code]],ProjectVRM,3,0))"
            .NumberFormat = "0.00%"
        End With
        
        With .Range("Aj36:Aj" & x)

            .FormulaR1C1 = "=IFERROR(IF([@[Start Date for Next Activity]]="""","""",([@[Start Date for Next Activity]]+[@[Nbr Days for Next Activity]]*[@[Per Cent % Complete" & Chr(10) & "" & Chr(10) & "]]%)),[@[Start Date for Next Activity]])"
            .NumberFormat = "d/mm/yyyy"

        End With
    On Error GoTo 0
    End If
    
     
  End With

 

[Alex Blakenburg]

Is this % sign in the image belwo in the right place ?
I can't test your code without an XL2BB of at least the headings of the table you are using, preferable with a line of sample data.
So if the above isn't the issue please post an XL2BB.
Also the Column AJ would need to be part of the same table.

 

[ajm]

Is this % sign in the image belwo in the right place ?
I can't test your code without an XL2BB of at least the headings of the table you are using, preferable with a line of sample data.
So if the above isn't the issue please post an XL2BB.
Also the Column AJ would need to be part of the same table.

View attachment 85927

the formula was correct. i think the way i had the range stated was incorrect. in the first part, i use:

With .Range("Ag36:Ag" & x)

            .SpecialCells(xlCellTypeBlanks).FormulaR1C1 =

whereas, the second one i left out the .SpecialCells part. I got it to work by using .SpecialCells(xlCellTypeVisible)

 With .Range("Aj36:Aj" & x

            .SpecialCells(xlCellTypeVisible).FormulaR1C1 =

:

 

[Alex Blakenburg]

Does that mean you have it working now ?

 

[ajm]

Does that mean you have it working now ?

it seems to be. will have another look on Monday. have a great weekend AB.