Sub asd()
    Const dRh# = 15.75
    Dim rRow As Range, r As Range, r1 As Range
    
    With ActiveSheet.UsedRange
        .Interior.Color = xlNone
        For Each rRow In .Rows
            Select Case True
                Case rRow.RowHeight >= dRh
                    If r Is Nothing Then
                        Set r = rRow
                    Else
                        Set r = Union(r, rRow)
                    End If
                Case rRow.RowHeight < dRh
                    If r1 Is Nothing Then
                        Set r1 = rRow
                    Else
                        Set r1 = Union(r1, rRow)
                    End If
            End Select
        Next
    End With
    r.Rows.Interior.Color = vbRed
    r1.Rows.Interior.Color = vbGreen
    
End Sub

=ИНДЕКС(6:6;НАИМЕНЬШИЙ(ЕСЛИОШИБКА(СТОЛБЕЦ($C6:$AD6)/(ПОИСК($J$11:$J$12;$C6:$AD6)=1);"");ОТБР(СТОЛБЕЦ(G14)/7))+ОСТАТ(СТОЛБЕЦ(G14);7))

=ЕСЛИОШИБКА(ПРОСМОТР(;-1/(ИНДЕКС(Лист1!2:9999;;НАИМЕНЬШИЙ(ЕСЛИОШИБКА(ЕСЛИ(ПОИСК($J11:$J12&"*";Лист1!$C$2:$AD$2)=1;СТОЛБЕЦ(Лист1!$C$2:$AD$2));"");ОТБР((СТОЛБЕЦ()+4)/7))+ОСТАТ(СТОЛБЕЦ()+4;7))>0);ИНДЕКС(Лист1!2:9999;;НАИМЕНЬШИЙ(ЕСЛИОШИБКА(ЕСЛИ(ПОИСК($J11:$J12&"*";Лист1!$C$2:$AD$2)=1;СТОЛБЕЦ(Лист1!$C$2:$AD$2));"");ОТБР((СТОЛБЕЦ()+4)/7))+ОСТАТ(СТОЛБЕЦ()+4;7)));"")

DuplicateShapes ЯчейкаСИскомымТекстом, ИмяФигуры, ПрефиксДубликатаФигуры, [...]

Option Explicit
Sub Общий()
    With Application
        .ScreenUpdating = 0: .EnableEvents = 0
        With ActiveSheet
            DuplicateShapes .[O1], .[K1], "Звездочка", _
                            .[S6], .[R6], "ОбъектX", _
                            .[S7], .[R7], "ОбъектY", _
                            .[S8], .[R8], "ОбъектZ"
        End With
        .ScreenUpdating = 1: .EnableEvents = 1
    End With
End Sub

Private Sub DuplicateShapes(ParamArray arg() As Variant)
    Dim arr() As Variant, lc As Range, c As Range, x As Shape, i&, cnt&
    For i = 0 To UBound(arg) \ 3
        For Each x In arg(i * 3).Parent.Shapes
          If x.Name Like arg(i * 3 + 2) & "*" Then x.Delete
        Next
        With arg(i * 3).Parent.UsedRange
            arr = .Formula
            Set lc = .SpecialCells(11).Offset(1, 1)
            .Replace "*" & arg(i * 3) & "*", "=" & lc.Address, xlWhole
            For Each c In lc.DirectDependents
                If c.Address <> arg(i * 3).Address Then
                    With ActiveSheet.Shapes(arg(i * 3 + 1)).Duplicate
                        cnt = cnt + 1: .Left = c.Left + c.Width - .Width
                        .Top = c.Top: .Name = arg(i * 3 + 2) & Format(cnt, " 000")
                    End With
                End If
            Next
            .Formula = arr
        End With
    Next
End Sub

Sub ааааа()
    Dim oPic As Picture
    For Each oPic In ActiveSheet.Pictures
        With oPic.TopLeftCell
            If Not Intersect(.Parent.[B:B], .Cells) Is Nothing Then
                oPic.Top = .Top : oPic.Left = .Left
                oPic.Height = .Height: oPic.Width = .Width
            End If
        End With
    Next
End Sub

=ТЕКСТ(СУММ(--(0&СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(A2:E2;"/";"     ");{1:6};5)))*10^{3:0});"000\/000")

=360/(СЧЁТ(A3:A$9999)+СТРОКА(A1)-1)*ПИ()/180*(СТРОКА(A1)-1)

select ... , null as B , ... from ...

shell "explorer """& [D3] &"""",vbhide

=СУММ(ЕСЛИОШИБКА(--ПСТР(ПОДСТАВИТЬ(D8:AH8;"/";"     ");{1:6};5);))