macro is working and getting run time error

[Prasad K]

i have applied macro for insert serial no if isblank cell and i know we can apply this formula also why i have applied a macro for insert serial no if isblank cell
because i want to insert serial no automatic with appling the macro that's why i have created a macro for this and here a problem i have getting run time error

here i want when the macro applied serial no the formula should be hidden

Sub SerialNo()
  Dim LastRow As Long
  LastRow = Cells(Rows.Count, "B").End(xlUp).Row
  Range("A1:A" & LastRow).FormulaR1C1 = "=IF(ISBLANK(RC[1]),"""",COUNTA(R1C2:RC[1]))"
  Rng.Value = Rng.Value
End Sub

 

[Peter_SSs]

You have not defined what "rng" is. You can avoid that sort of thing happening to you by ensuring you use 'Option Explicit' at the top of every module. That is easy with this setting in the vba module

You could also try this for the current issue.

Sub SerialNo()
  Dim LastRow As Long
  LastRow = Cells(Rows.Count, "B").End(xlUp).Row
  With Range("A1:A" & LastRow)
    .FormulaR1C1 = "=IF(ISBLANK(RC[1]),"""",COUNTA(R1C2:RC[1]))"
    .Value = .Value
  End With
End Sub

 

[Prasad K]

You have not defined what "rng" is. You can avoid that sort of thing happening to you by ensuring you use 'Option Explicit' at the top of every module. That is easy with this setting in the vba module

View attachment 47129

You could also try this for the current issue.

Sub SerialNo()
  Dim LastRow As Long
  LastRow = Cells(Rows.Count, "B").End(xlUp).Row
  With Range("A1:A" & LastRow)
    .FormulaR1C1 = "=IF(ISBLANK(RC[1]),"""",COUNTA(R1C2:RC[1]))"
    .Value = .Value
  End With
End Sub

Thank you Peter
RunTime Problem has been solved

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.

(I hope you made the vba editor change that I suggested too. )