Filtrar a través de un commandbuton

hola

tengo un boton que me realiza algunas tareas y lo tengo en la hoja1.
filtar de la hoja2, columna d todo lo que diga "terminado" y pegar lo
filtrado en una hoja nueva que se llame terminado_fecha
luego filtrar de la hoja2, columna d todo lo que diga "en proceso" y pegar
lo filtrado en una hoja nueva que se llame proceso_fecha

mira a ver si te vale algo asi:

presupone que:=> los titulos estan en la fila 1, los datos empiezan
en la 2, que la 1ª columna es la A y que en la ultima columna (IV) no
tienes nada

pegalo en un modulo normal y llamalo desde el evento click del boton
(si como afirmas es un commandbutton, sino asignale la macro)

Sub DobleFiltro()
Dim nCols As Byte, n As Byte, Criterios, Nombres
Criterios = Array("terminado", "en proceso")
Nombres = Array("terminado", "proceso")
Application.ScreenUpdating = False
With Worksheets("Hoja1")
If .FilterMode Then .ShowAllData
.[iv:iv].Clear: nCols = .[a1].End(xlToRight).Column
For n = LBound(Criterios) To UBound(Criterios)
.[iv2].Formula = "=(d2=""" & Criterios(n) & """)"
ThisWorkbook.Worksheets.Add after:=Worksheets("Hoja1")
.[a1].CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
criteriarange:=.[iv1:iv2], _
copytorange:=Range(Cells(1, 1), Cells(1, nCols)), _
unique:=False
ActiveSheet.Name = Nombres(n) & "_" & _
Format(Now, "dd-mm-yy hhmmss")
Next
.[iv2].Clear
End With
End Sub

a ver que tal
un saludo
Ivan

PD: OJO a los posibles trunques de linea en el editor del foro

perdon, FE de erratas:

cambia en=>>>> With Worksheets("Hoja1")

el "Hoja1" por "Hoja2"