Sub FillDown2()
lstr = 0
  rng2 = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    For Each st In ActiveSheet.UsedRange.Columns
        Set Rng = ActiveCell.CurrentRegion
    If Rng.Cells.Count > 1 Then
        n = Rng.Cells(1).Row + rng2 - ActiveCell.Row
    r = Cells(Rows.Count, st.Column).End(xlUp).Row
        lstr = IIf(lstr > r, lstr, r)
           End If
        If r < lstr Then
        Cells(r, st.Column).AutoFill Destination:=Range(Cells(r, st.Column), Cells(lstr, st.Column)), Type:=xlFillValues
     
        End If
    Next st
End Sub

Sub SmartFillDown()
'Умное автозаполнение вниз
    Dim rng As Range, n As Long
    rng2 = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Set rng = ActiveCell.Offset(0, -1).CurrentRegion
    If rng.Cells.Count > 1 Then
        n = rng.Cells(1).Row + rng2 - ActiveCell.Row
        On Error Resume Next
        For Each cell In Selection
        cell.AutoFill Destination:=cell.Resize(n, 1), Type:=xlFillValues
        Next
    End If
End Sub

Sub SmartFillDown()
'Умное автозаполнение вниз

    Dim rng As Range, n As Long
    Set rng = ActiveCell.Offset(0, -1).CurrentRegion
    If rng.Cells.Count > 1 Then
        n = rng.Cells(1).Row + rng.Rows.Count - ActiveCell.Row
        On Error Resume Next
        For Each cell In Selection
        cell.AutoFill Destination:=cell.Resize(n, 1), Type:=xlFillValues
        Next
    End If
End Sub

Sub TestEsc()
  On Error GoTo CancelHandler
    Application.EnableCancelKey = xlErrorHandler    For i = 1 To 100000
        Cells(i, 1) = "w"
    Next
CancelHandler:
    Application.EnableCancelKey = xlInterrupt
    If Err.Number = 18 Then MsgBox "Вы нажали кнопку ESC или CTRL + BREAK"
End Sub