Hello everyone
I am trying to use a macro to fill in blanks in column S, using values from column O using the below code but it isn’t quite working. Is anyone able to help? The formula below nearly works, but it only seems to be pulling the value from cell O2 and not moving down in line with each blank.
Sub FillBlankYear()
On Error Resume Next
With Columns("S").SpecialCells(xlCellTypeBlanks)
.FormulaR1C1 = "=RC[-1]"
.Value = .Offset(0, -4).Value
End With
End Sub
Thanks all, much appreciated.
Ben
Bookmarks