Sub печать_ч_б()
' печать_ч_б Макрос
снимаем_защиту
Dim aa As Range, arr(), a&, b&, c&, dd(), cc()
Set aa = [D4].CurrentRegion
ReDim arr(1 To aa.Rows.Count, 1 To aa.Columns.Count)
For a = 1 To aa.Rows.Count
  For b = 1 To aa.Columns.Count
    If aa(a, b).FormatConditions.Count > 0 Then
      ReDim dd(1 To aa(a, b).FormatConditions.Count): ReDim cc(1 To 11)
      For c = 1 To UBound(dd)
        With aa(a, b).FormatConditions.Item(c)
          cc(1) = .Type: cc(2) = .Operator
          cc(3) = Replace(.Formula1, "=", "")

Sub MyShapes()
    Dim sh As Shape
    For Each sh In ActiveSheet.Shapes
        sh.Placement = xlMove
    Next
End Sub

.Cells(i, 5) = Application.WorksheetFunction.MRound(.Cells(i, 1) * Rnd, 100)