Public Sub numbers()
With ActiveSheet.UsedRange
        For Each oCell In .Range("A:A,C:K,N:O")
            If oCell <> "" And Val(oCell) <> 0 Then
                oCell.Formula = Val(oCell)
            End If
        Next
End With
End Sub

For Each oCell In .Range("A:A,C:K,N:O")

For Each oCell In .Range("A:A,C:K,N:" & _
           Split(Columns(.Column + .Columns.Count - 1).Address(False, False), ":")(0))

Public Sub numbers()
With ActiveSheet.UsedRange
     For Each Rng In Array("A:A", "C:K", "N:O")
         For Each ocell In .Range(Rng).Rows(.Row & ":" & .Row + .Rows.Count - 1).Cells
             If ocell <> "" And Val(ocell) <> 0 Then
                 ocell.Formula = Val(ocell)
             End If
         Next
     Next
End With
End Sub

library LowLevelMouseHook;

uses
       Windows,
       Messages;

const
       WH_MOUSE_LL = 14;
       MMFName: PChar = 'MMF';

type
       PGlobalDLLData = ^TGlobalDLLData;
       TGlobalDLLData = packed record
         WndHook: HWND;
         Wnd: HWND;
       end;

type
      TMouseHookFilters = record
        BlockMouseMove: boolean;
        BlockLeftButton: boolean;
        BlockRightButton: boolean;
        BlockMiddleButton: boolean;
        BlockWheel: boolean;
        end;

var
       GlobalData: PGlobalDLLData;
       MMFHandle: THandle;
       Filters: TMouseHookFilters;
       MWM_LBUTTONDOWN: Cardinal;
       MWM_LBUTTONUP: Cardinal;

function LowLevelMouseProc(Code: Integer; wParam: DWORD; lParam: DWORD): Longint; stdcall;
begin
       if (Code = HC_ACTION) then
       begin
         if (wParam =  WM_LBUTTONDOWN) then
         begin
           SendMessage(GlobalData.Wnd, MWM_LBUTTONDOWN, 0, 0);
           if Filters.BlockLeftButton = True then
             Result := - 1
           else
             Result := CallNextHookEx(GlobalData^.WndHook, Code, wParam, lParam);
         end else
         if (wParam =  WM_LBUTTONUP) then
         begin
           SendMessage(GlobalData.Wnd, MWM_LBUTTONUP, 0, 0);
           if Filters.BlockLeftButton = True then
             Result := - 1
           else
             Result := CallNextHookEx(GlobalData^.WndHook, Code, wParam, lParam);
         end
         else
           Result := CallNextHookEx(GlobalData^.WndHook, Code, wParam, lParam);
       end;
end;

function StartMouseHook(State: Boolean; Wnd: HWND): Boolean; export; stdcall;
begin
       Result := False;
       if State = True then
       begin
         GlobalData^.WndHook := SetWindowsHookEx(WH_MOUSE_LL, @LowLevelMouseProc, hInstance, 0);
         GlobalData^.Wnd := Wnd;
         if GlobalData^.WndHook <> 0 then
           Result := True;
       end
       else
       begin
         UnhookWindowsHookEx(GlobalData^.WndHook);
         Result := False;
       end;
end;

function StopMouseHook(): Boolean; export; stdcall;
begin
       UnhookWindowsHookEx(GlobalData^.WndHook);
       if GlobalData^.WndHook = 0 then
         Result := False
       else
        Result := True;
end;

function UpdateMouseHook(HookFilters: TMouseHookFilters): Boolean; export; stdcall;
begin
       Filters := HookFilters;
end;

procedure OpenGlobalData();
begin
       MWM_LBUTTONDOWN := RegisterWindowMessage('MWM_LBUTTONDOWN');
       MWM_LBUTTONUP := RegisterWindowMessage('MWM_LBUTTONUP');
       MMFHandle := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0, SizeOf(TGlobalDLLData), MMFName);
       GlobalData := MapViewOfFile(MMFHandle, FILE_MAP_ALL_ACCESS, 0, 0, SizeOf(TGlobalDLLData));
       if GlobalData = nil then
         CloseHandle(MMFHandle);
end;

procedure CloseGlobalData();
begin
       UnmapViewOfFile(GlobalData);
       CloseHandle(MMFHandle);
end;

procedure DLLEntryPoint(Reason: DWORD);
begin
       case Reason of
         DLL_PROCESS_ATTACH: OpenGlobalData;
         DLL_PROCESS_DETACH: CloseGlobalData;
       end;
end;

exports StartMouseHook, StopMouseHook, UpdateMouseHook;

begin
       DLLEntryPoint(DLL_PROCESS_ATTACH);
end.

MWM_LBUTTONDOWN := RegisterWindowMessage('MWM_LBUTTONDOWN');
MWM_LBUTTONUP := RegisterWindowMessage('MWM_LBUTTONUP');

     if StartMouseHook(true, Handle) = true then
              HookEnable := true;

procedure TForm1.WndProc(var Msg: TMessage)
{ отслеживаем нажатия левой кл. мыши } ;
begin
       inherited;
       if (Msg.Msg = MWM_LBUTTONDOWN{MWM_LBUTTONUP}) then
       begin
       ShowMessage('DOWN'{'UP'})
       end;
end;

{=СТРОКА()-ЕСЛИ(ЕСЛИОШИБКА(ПОДСТАВИТЬ($M$76:$M$85;ИНДЕКС($E$39:$E$44;ПОИСКПОЗ($M$76:$M$85;$E$39:$E$44;0));"");$M$76:$M$85)<>"";75;65)}

{=ТЕКСТ(ИНДЕКС(ЕСЛИОШИБКА(ПОДСТАВИТЬ($M$76:$M$85;ИНДЕКС($E$39:$E$44;ПОИСКПОЗ($M$76:$M$85;$E$39:$E$44;0));"");$M$76:$M$85); ПОИСКПОЗ(НАИМЕНЬШИЙ(СЧЁТЕСЛИ($N$76:$N$85; "<"&$N$76:$N$85); СТРОКА($A:$A)); СЧЁТЕСЛИ($N$76:$N$85; "<"&$N$76:$N$85); 0));"")}

=СМЕЩ($O$76:$O$86;0;0;еслиошибка(ПОИСКПОЗ(" ";$O$76:$O$86;0);ПОИСКПОЗ("  ";$O$76:$O$86;0));1)

Formula1:="=$M$76:$M$85"

Formula1:="=List"

A1 = "Organization and planning"

ActiveSheet.Unprotect

Range("C6").Select

ActiveSheet.Protect

Select Case CStr(target)
          Case "_": MannagerList (-1)
          Case "Manager": MannagerList (1)
          Case "Manual_Worker", "Professional": MannagerList (0)
End Select

If Not Intersect(target, Range("H4:I5")) Is Nothing Then
       Select Case CStr(target)
              Case "_": MannagerList (-1)
              Case "Manager": MannagerList (1)
              Case "Manual_Worker", "Professional": MannagerList (0)
       End Select
End If

Sub MannagerList(Mang As Integer)
      Dim AA As Variant
      ActiveSheet.Unprotect
      AA = Array("Organization and planning", "Decision-making", _
          "Team building, management And development", "Delegation and control", _
          "Leadership and motivation", "Strategic thinking")
' "Manual_Worker", "Professional":
      If Mang = 0 Then
          Range("E39:E45").Value = " "
          ' Range("E46").Value = " "
          Range("B39").Value = "Professional Competencies"
          Range("D42:I44").RowHeight = 0
          'Range("D44:I46").Select
          'Range("D44:I46").Select
          ' Selection.RowHeight = 0
      ' Уставновка
          With Range("E39:E44").Validation
             .Delete
             .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                 Operator:=xlBetween, Formula1:="=List"
         End With
      'Установка в начало
          Range("E40").Select
          Range("D39").Value = 1
          Range("D40").Value = 2
          Range("D41").Value = 3
      ElseIf Mang = 1 Then
' Manager
          For i = 0 To 5
              Range("E" & 39 + i).Value = AA(i)
          Next
      'Range("E46").Value = A7
          Range("B39").Value = "Managerial Competencies"
      ' Высота строк
          Range("D40:I46").RowHeight = 14
      ' Очистка данных проверки
          With Range("E39:E46").Validation
              .Delete
              .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, _
                  Operator:=xlBetween
          End With
      ' Установка в текущее положение
          Range("E40").Select
          For i = 1 To 6
              Range("D" & 38 + i).Value = i
          Next
      ElseIf Mang = -1 Then
' *************************************************************************
' Пустое значение
' *************************************************************************
          Range("B39").Value = ""
          Range("D39:D44").Value = ""
          Range("E39:E44").Value = ""
      End If
' Следующее поле для заполнения после выбора типа
       Range("C6").Select
       ActiveSheet.Protect
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      colors = Array(vbWhite, vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan, vbWhite)
      Cancel = True
      With Target.Interior
          For i = 0 To UBound(colors)
              If .Color = colors(i) Then
                  .Color = colors(i + 1)
                  Exit For
              ElseIf i = UBound(colors) Then .Color = colors(0)
              End If
          Next
      End With
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      Words = Array("Рыба", "Кот", "Сметана", "Рыба")
      Cancel = True
      With Target
          For i = 0 To UBound(Words)
              If .Value = Words(i) Then
                  .Value = Words(i + 1)
                  Exit For
              ElseIf i = UBound(Words) Then .Value = Words(1)
              End If
          Next
      End With
End Sub

=ТЕКСТ(ИНДЕКС(ЕСЛИОШИБКА(ПОДСТАВИТЬ($M$76:$M$85;ИНДЕКС($E$39:$E$44;ПОИСКПОЗ($M$76:$M$85;$E$39:$E$44;0));" ");$M$76:$M$85); ПОИСКПОЗ(НАИМЕНЬШИЙ(СЧЁТЕСЛИ($N$76:$N$85; "<"&$N$76:$N$85); СТРОКА($A:$A)); СЧЁТЕСЛИ($N$76:$N$85; "<"&$N$76:$N$85); 0));"")

If Target.Count > 1 Then Target.Delete

ЕСЛИ в выделенном диапазоне более 1 ячейки ТО удалить первую ячейку выделенного диапазона со сдвигом влево

Sub Clear_all()
      ActiveSheet.Unprotect
      Application.ScreenUpdating = False
          Dim rngs As Variant
          Dim rng, rng2 As Range
          rngs = Array("B39", "C4", "H4", "C6", "C7", "C8", "C9", "C10", "C12", _
              "C13", "H12", "H8", "C17", "E17:H19", "C21", "E21:H23", "C25", "E25:H31", _
              "C39", "E39:H44", "D49:D54", "D56:D58", "B62:E62", "B63:E63", "B66:E66", _
              "B67:E67", "H33:H37", "F62:I62", "F67:I67", "D64:E64", "D68:E68", "H64:I64", _
              "C2")
          Set rng = Range(rngs(0))
          Dim i As Integer
          For i = 0 To UBound(rngs)
              For Each cell In Range(rngs(i))
                  If cell.MergeCells Then
                      Set rng = Union(rng, cell.MergeArea)
                  Else
                      Set rng = Union(rng, cell)
                  End If
              Next
          Next
          rng.ClearContents
      Application.ScreenUpdating = True
      ActiveSheet.Protect
End Sub

Private Sub del_0()
      Dim rng As Range
      With ThisWorkbook.Worksheets("день").Range("C:C")
          Set rng = .Find(0, , LookIn:=xlValues, lookat:=xlWhole)
          If Not rng Is Nothing Then
              Do
                  rng.EntireRow.Delete
                  Set rng = .FindNext()
              Loop While Not rng Is Nothing
          End If
      End With
End Sub