Sub www()
With Range("K24:K29")
MsgBox .Find(WorksheetFunction.Max(.Cells)).Row
End With
End Sub

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