Excel - Asignar macro a todas las celdas resaltadas en amarillo

Problema

Hola, actualmente estoy en un aprieto ... Espero que todos los maestros puedan echar una mano a este novato VBA ...

En este momento escribí una macro para copiar toda la fórmula sin retener el valor en las celdas activas y me gustaría aplicar esta macro a todas las celdas amarillas resaltadas en amarillo en la hoja de cálculo ... ¿Cómo hacer eso?

mi código actual es solo

(Todavía no puedo pensar qué poner para hacer que solo las celdas resaltadas en amarillo contengan esta macro)

 Sub Copy_Formulas_Only () Dim row As Single row = ActiveCell.row Selection.EntireRow.Insert Rows (row - 1) .Copy Rows (row) .Seleccione On Error Resume Next Selection.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants). ClearContents On Error GoTo 0 Application.CutCopyMode = False End Sub

Solución

Se activará al seleccionar el rango de celdas. Pero supongo que sabes mejor lo que necesitas hacer.

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) Application.EnableEvents = False 'If Target.Address = "TODA LA CELDA AMARILLA EN LA HOJA DE TRABAJO" Luego para cada CELL en Target Target (CELL.Interior.Color = 65535) row = ActiveCell.row Selection.EntireRow.Insert Rows (row - 1) .Copy Rows (row) .Seleccione en error Reanudar Next Selection.PasteSpecial Paste: = xlPasteFormulas Selection.SpecialCells (xlCellTypeConstants) .ClearContents Application.EnableEvents = Verdadero GoTo 0 End If Next Application.CutCopyMode = False End Sub