Bom dia Pessoal!
Preciso copiar todas as linhas da Plan1 com a palavra "forro" para a Plan2 e depois apagar as respectivas linhas da Plan1. Fiz a macro abaixo que esta funcionado palavra por palavra, mas como são várias palavras (ex: gesso, mármore, granito, etc), preciso saber se é possível pré determinar as palavras na macro e o comando fazer todas de uma unica vez, sem ter que digitar palavra por palavra e executar a macro uma a uma.
Outra duvida é que quando a macro não encontra mais linhas com o critério selecionado, a macro retorna o erro: "A variável do objeto ou a variável do bloco "With" não foi definida"
Como corrigir?
Abaixo a macro que consegui fazer:
Sub CopiaLinhaCritério()
Do While Range("A1").Select
Cells.Find(What:="forro").Activate
lin = ActiveCell.Row
Rows(lin).Select
Selection.Copy
Sheets("Plan2").Select
ActiveSheet.Paste
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Plan1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A1").Select
Loop
End Sub