Boa tarde!!

Eu não entendi absolutamente nada do que deseja neste post!!

por favor, explique melhor e quando postar poste resultado (antes e depois), manual!!!

Att

Opa, veja se agora "tá mior"

Boa noite!!

Tente assim

Sub AleVBA_13997()
    Dim Cell As Range
     
    Set Cell = Range("E:E").Find(What:=Range("AO8"))
    If Not Cell Is Nothing Then
        Range(Cell.Offset(0, 2), Cell.Offset(12, 32)).Copy Destination:=Range("BX2")
    End If
End Sub

Bom dia
Alexvba, C eh um craque. Bom demais.

Boa noite!!

Eu fico feliz em ajudar, obrigado pelo retorno!!

Att