Error message in code

[FROGGER24]

When I run this piece of code I get a error message. "Runtime error 1004 unable to get the specialcellsproperty of the range class"


'runtime error 1004 "unable to get the specialcells property of the Range class
Range("I2:AF" & Cells(Rows.Count, "G").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[1]C"
Range("I2:AF" & Cells(Rows.Count, "G").End(xlUp).Row).Copy
Range("I2:AF" & Cells(Rows.Count, "G").End(xlUp).Row).PasteSpecial xlPasteValuesAndNumberFormats

 

[xld]

Not sure of the problem, I don't get it here, but you have a logic error

    Set Rng = Range("I2:AF" & Cells(Rows.Count, "G").End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
    Rng.FormulaR1C1 = "=R[1]C"
    Rng.Copy
    Rng.PasteSpecial xlPasteValuesAndNumberFormats

 

[jearl97]

I'm guessing here ...try changing "G" to "G:G".

 

[jearl97]

I'm guessing here ...try changing "G" to "G:G".

Edit: Nevermind, your code worked for me once I changed it back to "G".

Sorry.