Sub Заполнить_пустые()
    
    Dim rng As Range, ar As Range, lr As Long
    
    lr = Columns("A:AB").Find(What:="*", LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False).Row
    On Error Resume Next
    Set rng = Range("A9:A" & lr).SpecialCells(xlCellTypeBlanks).EntireRow
    On Error GoTo 0
    If rng Is Nothing Then
        MsgBox "Пустых ячеек нет!", vbExclamation
        Exit Sub
    End If
    
    Application.ScreenUpdating = False

    For Each ar In rng.Areas
        ar.Columns("A:R").Value = ar.Rows(1).Columns("A:R").Offset(-1).Value
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "Готово!", vbInformation
    
End Sub