Hi MrExcel,
Could you help to resolve the problem?Thank you very much!
After run the following code, it appears wrong value!
[
Sub Payment()
Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("A1").Select
End Sub
]