What's wrong with my code?

[dping222]

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!

 

[fght]

On Error Resume Next
With Range("B1:B20").SpecialCells(xlCellTypeBlanks) 'change range as required
.FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
On Error GoTo 0
This message was edited by fght on 2002-04-09 15:19