Ayuda con este codigo.

Este codigo lo puso KL como respuesta a una persona de este foro hace
unos días, yo habia puesto un post un tanto parecido y pense que podria
adecuarlo a mis necesidades pero no he podido, ¿alguien me podria
colaborar un poco?. Mi problema, eliminar fila de la hoja Activos
dependiendo de una condicion, que en la columna H tenga X, estos
registros deben pasar a otra hoja del mismo libro llamada Retirados,
esta nueva fila(en retirados) puede ir al final de la hoja(la hoja ya
existe). ¿Sera esto posible?, Gracias de antemano.

El codigo:
Sub Creating_New_Sheet()
Application.ScreenUpdating = False
Sheets(ActiveSheet.Name).Copy After:=ActiveSheet
With ActiveSheet.Range("H:H")
On Error Resume Next
Do
.Find _
(What:="A", _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext).EntireRow.Delete
Loop Until Err.Number <> 0
End With
End Sub

Esta Macro lo que hace es crear una nueva hoja y pasar las filas que
tengan X a esa nueva hoja, yo ya tengo creada la hoja y lo que deseo es
anexar dichas filas al final de esa hoja.

Este codigo lo puso KL como respuesta a una persona de este foro hace
unos días, yo habia puesto un post un tanto parecido y pense que podria
adecuarlo a mis necesidades pero no he podido, ¿alguien me podria
colaborar un poco?. Mi problema, eliminar fila de la hoja Activos
dependiendo de una condicion, que en la columna H tenga X, estos
registros deben pasar a otra hoja del mismo libro llamada Retirados,
esta nueva fila(en retirados) puede ir al final de la hoja(la hoja ya
existe). ¿Sera esto posible?, Gracias de antemano.

El codigo:
Sub Creating_New_Sheet()
Application.ScreenUpdating = False
Sheets(ActiveSheet.Name).Copy After:=ActiveSheet
With ActiveSheet.Range("H:H")
On Error Resume Next
Do
.Find _
(What:="A", _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext).EntireRow.Delete
Loop Until Err.Number <> 0
End With
End Sub

Esta Macro lo que hace es crear una nueva hoja y pasar las filas que
tengan X a esa nueva hoja, yo ya tengo creada la hoja y lo que deseo es
anexar dichas filas al final de esa hoja.

Este codigo lo puso KL como respuesta a una persona de este foro hace
unos días, yo habia puesto un post un tanto parecido y pense que podria
adecuarlo a mis necesidades pero no he podido, ¿alguien me podria
colaborar un poco?. Mi problema, eliminar fila de la hoja Activos
dependiendo de una condicion, que en la columna H tenga X, estos
registros deben pasar a otra hoja del mismo libro llamada Retirados,
esta nueva fila(en retirados) puede ir al final de la hoja(la hoja ya
existe). ¿Sera esto posible?, Gracias de antemano.

El codigo:
Sub Creating_New_Sheet()
Application.ScreenUpdating = False
Sheets(ActiveSheet.Name).Copy After:=ActiveSheet
With ActiveSheet.Range("H:H")
On Error Resume Next
Do
.Find _
(What:="A", _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext).EntireRow.Delete
Loop Until Err.Number <> 0
End With
End Sub

Esta Macro lo que hace es crear una nueva hoja y pasar las filas que
tengan X a esa nueva hoja, yo ya tengo creada la hoja y lo que deseo es
anexar dichas filas al final de esa hoja.