Hi guys,
Range("B1").Select
again:
Selection.Copy
ActiveCell.Offset(1, 0).Select
While ActiveCell.Value = Null
ActiveCell.PasteSpecial xlPasteValues
ActiveCell.Offset(1, 0).Select
Wend
GoTo again
I'm basically trying to evaluate the cells in a column and do a FillDown on the empty cells. The column may look like the following:
11111
blank
blank
22234
blank
38288
blank
blank
blank
so on and so on. The blanks would be filled in with the closest number above the blank.
Any help is appreciated!
Range("B1").Select
again:
Selection.Copy
ActiveCell.Offset(1, 0).Select
While ActiveCell.Value = Null
ActiveCell.PasteSpecial xlPasteValues
ActiveCell.Offset(1, 0).Select
Wend
GoTo again
I'm basically trying to evaluate the cells in a column and do a FillDown on the empty cells. The column may look like the following:
11111
blank
blank
22234
blank
38288
blank
blank
blank
so on and so on. The blanks would be filled in with the closest number above the blank.
Any help is appreciated!