Запустите al oop «один раз» для всего листа

Question

У меня есть этот код, и он работает "вроде", он зацикливается, пока я не нажму ES C, чтобы сломать код.

Я пытаюсь запустить его один раз для всего листа, моя проблема это для работы на нескольких листах, которые могут иметь одно или несколько слов "Especificação"!

Может кто-нибудь помочь !!

Sub p_esp_fab()
Dim C As Range
For Each C In Range("A1: II5000")

    Cells.Find(What:="Especificação", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Selection.Merge True
    Selection.Copy
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "de fabricante"


Next
End Sub