Olá,
Gostaria de copiar intervalo de linhas de uma planilha para outra, com base em uma condição "texto" de uma coluna. Tudo feito por uma macro/botão, este botão pegaria uma condicional da coluna "I" (exemplo texto: "concluído"), e moveria todas as linhas (colunas A até G), com esta condição, para a outra planilha, e após isto esta mesma macro apagaria as linhas, só que desta vez considerando as colunas B até I.

Poderia fazer a macro abaixo gravada que: Cria a linha; copia intervalo das linhas; cola em outra planilha; apaga intervalo de linhas, mas para isto seria necessário uma macro/botão para cada linha.

Sub GHIST1()
'
' GHIST1 Macro
'

'
Sheets("HISTÓRICO INTERVENÇÕES").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrBelow
Range("A1").Select
Sheets("REGISTRO").Select
Range("A3:G3").Select
Selection.Copy
Sheets("HISTÓRICO INTERVENÇÕES").Select
Range("A2").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("REGISTRO").Select
Range("B3:I3").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
End Sub

Acredito que meu problema seja o mesmo deste forum aqui:
http://www.ozgrid.com/forum/showthread.php?t=182976
Anexei o arquivo no formato .XLS, .XLSM, e .XLSX