Sub Макрос3()


    Set asdf2 = Range("A65536").End(xlUp) ' последняя заполненая ячейка
    Set asdf = Range("A1").End(xlDown) ' первая заполненая ячейка
    Range(asdf, asdf2).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" 'заносим формулу в диапазон
    Range(asdf, asdf2).Value = Range(asdf, asdf2).Value ' копируем только значения
 
End Sub

Sub Макрос3()
    
    asdf2 = Range("A65536").End(xlUp).Row  ' последняя заполненая ячейка
    asdf = Range("A1").End(xlDown).Row ' первая заполненая ячейка
    Range(Cells(asdf,  255 ), Cells(asdf2,  255 )).FormulaR1C1 = "=RC[-254]" 'вставляем значение первой ячейки диапазона в предпоследний столбец
    Range(Cells(asdf +  1 ,  255 ), Cells(asdf2,  255 )).FormulaR1C1 = "=IF(RC[-254]="""",R[-1]C,RC[-254])" 'вставляем формулу в предпоследнем столбце
    Range(Cells(asdf, "A"), Cells(asdf2, "A")).Value = Range(Cells(asdf,  255 ), Cells(asdf2,  255 )).Value 'Копируем значения в нужный нам столбец 
    Range(Cells(asdf,  255 ), Cells(asdf2,  255 )).Clear ' очищаем дополнительный предпоследний столбец
    
End Sub

Sub ЗаполнениеБолее16000ПустыхЯчеек()
    Dim lngLastRow As Long, i As Long, i2 As Long
    Application.ScreenUpdating = False
    With ActiveSheet
        lngLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        i2 = .Cells( 1 , "A").End(xlDown).Row 'первая строка диапазона
        On Error Resume Next
        For i = .Cells( 1 , "A").End(xlDown).Row To lngLastRow Step  16000  'работаем начиная с первой строки диапазона
            .Cells(i, "A").Resize( 16000 ).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        Next i
        With .Range(.Cells(i2, "A"), .Cells(lngLastRow, "A")) 'копируем начиная с первой строки диапазона
            .Value = .Value 
        End With
    End With
    Application.ScreenUpdating = True
End Sub

Sub ЗаполнениеБолее16000ПустыхЯчеек()
    Dim lngLastRow As Long, i As Long, i2 As Long, j As Long, j2 As Long
    Application.ScreenUpdating = False
    With ActiveSheet
    
    For j =  1  To  10  Step  1  ' j = 1 - номер первого столбца, To 10 - номер последнего столбца, Step 1 - через какой шаг проводить заполнение столбцов
    
        lngLastRow = .Cells(.Rows.Count, j).End(xlUp).Row
        i2 = .Cells( 1 , j).End(xlDown).Row 'первая строка диапазона
        On Error Resume Next
        
        For i = .Cells( 1 , j).End(xlDown).Row To lngLastRow Step  16000  'работаем начиная с первой строки диапазона
            .Cells(i, j).Resize( 16000 ).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        Next i
        With .Range(.Cells(i2, j), .Cells(lngLastRow, j)) 'копируем начиная с первой строки диапазона
            .Value = .Value
        End With
    Next j
    End With
    Application.ScreenUpdating = True
End Sub