Using the SpecialCells method to select all the blanks in this range is one way to quickly fill in all the blank region cells with the region found above them: : UsedRange « Access « VBA / Excel / Access / Word
Using the SpecialCells method to select all the blanks in this range is one way to quickly fill in all the blank region cells with the region found above them:
Sub FillIn()
On Error Resume Next
range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
range("A1").CurrentRegion.value = range("A1").CurrentRegion.value End Sub