Este fórum está sendo desativado

[LuizRenanFB]

Olá!

Gostaria que me auxiliassem na elaboração de um código, para a realização de uma macro.
Pretendo realizar uma macro para aplicar em um botão que computasse a movimentação de um item, bucando o local de origem (célula C3) no filtro, e removendo a descrição do item e demais informações, e inserindo na sua nova posição, (de acordo com a célula C5)

Movimentando os dados inseridos de H:K entre essas posições.

o códido da macro gravada durante esse processo fixa as linhas, onde o correto seria utilizar as linhas do filtro.

Há uma maneira mais elegante de realizar esse macro?

[osvaldomp]

Olá, @LuizRenanFB .

Veja se entendi corretamente.

Código: Selecionar todos

Sub MudaDados()
 Dim fO As Range, fD As Range
  Set fO = [E:E].Find([C3], , xlValues): Set fD = [E:E].Find([C5], , xlValues)
  fO.Offset(, 3).Resize(, 4).Copy fD.Offset(, 3): fO.Offset(, 3).Resize(, 4) = ""
End Sub