Sub CopyFromHiddenRow()
    Dim objR As Range
    If Range("A4") = "" Then
        MsgBox "Сборные данные отсутствуют"
        Exit Sub
    End If
    Set objR = Range("A5:A" & Cells(Rows.Count, 1).End(xlUp).Row).Find(Range("A4"))
    If Not objR Is Nothing Then
        Range("A4:O4").Copy
        objR.Resize(1, 15).PasteSpecial (xlPasteValues)
    Else
        Set objR = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        Range("A4:O4").Copy
        objR.Resize(1, 15).PasteSpecial (xlPasteValues)
    End If
    Application.CutCopyMode = False
End Sub

=C2/СУММ($D$2:$D$4)*D2-E2

Private Sub Workbook_Deactivate()
Application.Calculation = xlCalculationAutomatic 
End Sub

Range("B2:B14").Copy
Range("D2").PasteSpecial (xlPasteValues)
Application.CutCopyMode=False

Sub CopyRange()
Range("B1").CurrentRegion.Offset(1,0).Copy Range("D2")
End Sub

Sub CopyRange()
Range("B1").CurrentRegion.Offset(1, 0).Copy
Range("D2").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End Sub

'сразу после For Each Rng in WorkRng
Rng.Offset(0,-1)=application.username

Sub FromDataToResult_FindAndPaste()
'объявляем переменные для диапазонов, рабочих листов 
    Dim objR As Range, objSC As Range, objC As Range, whR As Worksheet, whIn As Worksheet 
'пишем в переменные значения конкретных листов из книги (чисто для сокращения букв кода)
    Set whR = Worksheets("Result"): Set whIn = Worksheets("Data")
    Set objR = whIn.UsedRange 'пишем в переменную используемый диапазон с листа Data
'для каждой ячейки в текущем диапазоне, определяемый от В2 с листа Result
'(текущий диапазон - это заполненные чем либо ячейки, ограниченные пустыми строками/столбцами)
    For Each objC In whR.Range("B2").CurrentRegion 
'пишем в переменную ячейку, которую находим с помощью метода Find в диапазоне objR. Что искать = objC
        Set objSC = objR.Find(objC)
'от найденной ячейки определяем заполненный диапазон и копируем его (диапазона) вторую ячейку на лист Result под
'ячейку, сидящей в переменной objC. Именно поэтому важно, чтоб данные были отделены друг от друга строками/столбцами
'и левее/выше находился буквенный код, а правее/ниже - числа. Текущий диапазон получается из двух ячеек, вот вторую
'(которая содержит число) мы и копируем.
        objSC.CurrentRegion.Cells(2).Copy objC.Offset(1, 0)
    Next objC 'переходим к следующей ячейке
End Sub

Sub BoldSum()
Dim BoldSum As Double
Dim NoBoldSum As Double
Dim i As Long
Dim iLastRow As Long
  iLastRow = Cells(Rows.Count, 5).End(xlUp).Row
  BoldSum = 0
  NoBoldSum = 0
  For i = 5 To iLastRow
    If Cells(i, 5).Font.Bold = True And IsNumeric(Cells(I, 5)) = True Then
      BoldSum = BoldSum + Cells(i, 5)
    Else
      NoBoldSum = NoBoldSum + Cells(i, 5)
    End If
  Next
    Cells(i, 6) = BoldSum
    
    Cells(i, 6).NumberFormat = "#,##0.00"
End Sub

Sub SetOfChairs()
    Dim arrIn, arrOut, lngI As Long, lngJ As Long, lngK As Long
    Dim whIn As Worksheet, whOut As Worksheet
    Set whIn = Worksheets("Лист1"): Set whOut = Worksheets("Результат")
    arrIn = whIn.Range("A1").CurrentRegion.Value
    ReDim arrOut(1 To UBound(arrIn, 1) * (UBound(arrIn, 2) - 1), 1 To 1)
    For lngI = 1 To UBound(arrIn, 1)
        For lngJ = 2 To UBound(arrIn, 2)
            lngK = lngK + 1
            arrOut(lngK, 1) = arrIn(lngI, 1) & ":" & arrIn(lngI, lngJ)
        Next lngJ
    Next lngI
    whOut.Range("A1").Resize(lngK, 1) = arrOut
End Sub

=ИНДЕКС($A$2:$A$10;СЛУЧМЕЖДУ(1;9))

=ИНДЕКС($A$2:$A$7;ПОИСКПОЗ(1;($B$2:$B$7=F2)*($C$2:$C$7<=G2)*($D$2:$D$7>=G2);0);1)

Cells(Row, Column).AddComment (CommentText)
'вместо CommentText можно сослаться на значение элемента управления, допустим
Cells(Row, Column).AddComment (ComboBox15.Value)

Worksheets("Sheet2").UsedRange.Offset(1, 0).Copy Worksheets("Sheet1").[A1].End(xlDown)(2)

[""]+[А-Яа-яЁё ]+[""]+