Sub patio()
        
      Application.ScreenUpdating = False
      For i = 5 To ActiveSheet.UsedRange.Rows.Count
      Cells(i, 11) = Cells(i, 10).Interior.color
      Cells(i, 12).FormulaR1C1 = "=ROUND(IF(OR(RC[-1]=65535,RC[-1]=9498256),RC[-5]*1.04,RC[-5]),0)"
      Next i
      Rows("1:3").Select
      Selection.Delete Shift:=xlUp
      ActiveSheet.Range("H:H").Delete
      Range("G3").Select
      ActiveCell.FormulaR1C1 = "Опт, с НДС"
      Range("H3").Select
      ActiveCell.FormulaR1C1 = "Дилер, с НДС"
      For i = 5 To ActiveSheet.UsedRange.Rows.Count
      Cells(i, 11).Select
      Selection.Copy
      Cells(i, 8).Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
      Next i
      ActiveSheet.Range("J:K").Delete
      For i = 5 To ActiveSheet.UsedRange.Rows.Count
      Cells(i, 7).FormulaR1C1 = "=RC[1]*1.04"
      Cells(i, 7).Select
      Selection.Copy
      Cells(i, 7).Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
      Next i
      ActiveSheet.Name = "бытовая_техника"
      Application.ScreenUpdating = True
End Sub