Sub ZapolnVniz()
       Dim rn_, a_, c_, nc_, r0_, r10_, r11_, r12_, r_
       On Error Resume Next
       rn_ = Rows.Count
       a_ = Selection.Address
       c_ = Selection.Column
       nc_ = Selection.Columns.Count
       r0_ = Selection.Row
       r10_ = Cells(rn_, c_).End(xlUp).Row
       r11_ = Cells(rn_, c_ - 1).End(xlUp).Row
       r12_ = Cells(rn_, c_ + nc_).End(xlUp).Row
      If r_ > r0_ Then Range(a_, Cells(r_, c_)).FillDown
'для 2003 и (возможно) 2007 для заполнения только видимых ячеек (если это необходимо) убрать апостроф внизу и поставить наверху
'    If r_ > r0_ Then Range(a_, Cells(r_, c_)).SpecialCells(xlCellTypeVisible).FillDown
      On Error GoTo 0
End Sub