Many thanks NickHK, I tried to test your code line but i facing the compile error for the code line below:


If IsEmpty(.Offset(N, 2).Value) And IsNumeric(.Offset(N, 2).Value)
Then
.Offset(N, 2).FormulaR1C1 = "=(RC[-2])"