VBA. Fill empty cells with text "OPEN", I2 downwards, row count Col A

Originally Posted by JBeaucaire

Tom, you suggest a manual method that uses the Special Cells method, great! But then a VBA approach that doesn't use the same efficient technique?

Sub FillOPEN()
Dim LR as Long

LR = Range("A " & Rows.Count).End(xlUp).Row
Range("I2:I" & LR).SpecialCells(xlBlanks) = "OPEN"

End Sub

Errors out. " Method 'Range' of object '_Global' failed.

with line below:
LR = Range("A " & Rows.Count).End(xlUp).Row

I like the 2 line code. Any ideas?

Sub FillOPEN()
Dim LR as Long

LR = Range("A " & Rows.Count).End(xlUp).Row
Range("I2:I" & LR).SpecialCells(xlBlanks) = "OPEN"

End Sub

Got it. Simple typo. extra space "A ". Should read "A"


As its probably impossible to do it any faster than this, I will put it as solved.
Thank you both.