Sub Миша_с_возвращением_вскл_зн()
UsedRange.SpecialCells(4).Delete Shift:=xlToLeft
End Sub

Sub www()
UsedRange.SpecialCells(4).Offset(, -1).ClearContents '.Select
End Sub

Sub Макрон_1_1()
With Workbooks("Пример.xlsm").Worksheets("Лист1")
.Range("A2:I2", .Cells.End(xlDown)).Clear
End With
End Sub

Sub Макрон_1_3()
Workbooks("Пример.xlsm").Worksheets("Лист1").Range("A2:I2", Workbooks("Пример.xlsm").Worksheets("Лист1").Cells.End(xlDown)).Clear
End Sub

Sub www()
With Rows(2)
.RowDifferences(.Find(ActiveCell.Value)).EntireColumn.Hidden = True
.SpecialCells(12).EntireColumn.Select 'delete
End With
Columns.Hidden = False
End Sub

Sub www()
'On Error Resume Next
Set r1 = Range(Cells(3, 1), Cells(UsedRange.Rows.Count, 1)).SpecialCells(4)
For i = 1 To r1.Areas.Count
  For j = 1 To UsedRange.Columns.Count - 1
  r1.Areas(i).Cells(1).Offset(-1, j) = r1.Offset(, j).SpecialCells(2).Areas(i).Cells(1)
  If j = 1 Then r1.Areas(i).Cells(1).Offset(-1, j).NumberFormat = "h:mm;@"
  Next j
Next i
r1.EntireRow.Delete
End Sub

MsgBox Join(Application.Transpose(Selection), ", ")

Sub ToColumns_1()
Dim Arr
Arr = Split(Range("A1"), ";")
Range("A3").Resize(1, UBound(Arr) + 1).Value = Arr
End Sub

Sub www()
MsgBox "Умножить сильно - " & Chr(213) & Chr(10) _
      & "Умножить слабо - " & Chr(245) & Chr(10) _
      & "Умножить по настоящму - " & Chr(149)
End Sub

Sub Оглавление()
r = Cells(Rows.Count, 2).End(xlUp).Row
Range(Cells(21, 5), Cells(r, 5)).ClearContents
For i = r To 21 Step -1
  If Cells(i, 4) = 1 Then
  Cells(i, 5) = WorksheetFunction.Sum(Range(Cells(21, 4), Cells(i, 4)))
  Else
  Cells(i, 5) = "'" & WorksheetFunction.Sum(Range(Cells(21, 4), Cells(i, 4))) - Cells(i, 4) + 1 _
                & " - " & WorksheetFunction.Sum(Range(Cells(21, 4), Cells(i, 4)))
  End If
Next
End Sub

Cells(str + np + 1, 5) = WorksheetFunction.Sum(Range(Cells(str, 4), Cells(str + np, 4))) + 3 _
             - WorksheetFunction.Sum(Range(Cells(str, 4), Cells(str + 1 + np, 4))) + 2

Sub avden1961_Тему_Переименуйте()
r = Cells(Rows.Count, 2).End(xlUp).Row
For i = 6 To r
Cells(i, 3).Resize(, Cells(i, 2)).Interior.ColorIndex = (i Mod 2) * 37 + 6
Next
End Sub

Sub Тыц()
With CreateObject("WScript.Shell")
 .Run "https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=45586&TITLE_SEO=45586-pravila-foruma"
End With
End Sub

Sub paint_red_3()
For Each x In Selection
Range("A:F").Rows(x.Row).Interior.ColorIndex = (Abs(Not (x.EntireRow.Hidden)) * 6)
Next x
'Rows.Hidden = 0
End Sub