Copiar y pegar en otra hoja

Buenas Tarde a Tod@s

soy Nuevo con VBA y

hablo español muy mal

quiero Vuestra ayuda para aprender un poco para mis tareas diarias.

lo que necesito de momento es lo siguiente:

tengo 2 hoja en el libro de excel y "Sheet1" es hoja principal y "sheet2" es solamente para tareas terminadas

en la sheet1 tengo todos los datos (Tareas pendientes") y en esta hoha"Sheet1" en la columna "H" pongo datos cuando esta treminada.

lo que quiero, es un codigo que me haga lo siguiente.

1- cuando pongo algo en la columna "H" esta fila me corta de la sheet1 y pega en el "SHEET2" en la ultima fila disponible

2- y de la sheet1 se borra dicha fila

de momento eso es todo lo que quiero

adjunto el archivo

estaba escribiendo este macro pero me pasa solamente primera fila y pega en la misma fila

Sub Copiar_Pegar()
 Dim ir As Integer, r As Integer, erow As Integer
 ir = ThisWorkbook.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
 'MsgBox ir
  For r = 5 To ir
  If Cells(r, 8).Value <> "" Then
  'este de relleno es solamente era para ver si me busca la fila o no
  'es Opcional o no es necesario
  Range(Cells(r, 1), Cells(r, 9)).Interior.Color = RGB(255, 180, 200)
  Range(Cells(r, 1), Cells(r, 9)).Cut
  Sheets("Sheet2").Select
  erow = ActiveSheet.Cells(Rows.Count).End(xlUp).Row + 1
  ActiveSheet.Cells(erow, 1).Select
  ActiveSheet.Cells(erow, 1).PasteSpecial.xlPasteValues
  Sheets("data").Select
  End If
  Next r

 Application.CutCopyMode = False
End Sub

Copiar y pegar.zip