Public EsTaDo As String
Sub ControlEstado()
' Suponiendo que en la HojaX los datos comiencen a partir de la fila 2 _
donde la fila 1 es la de títulos y, además, los datos sobre el estado _
están en la columna D; y en la HojaY las columnas ocupan el mismo _
espacio que en la HojaX, entonces el siguiente código va a funcionar _
perfecto. De lo contrario, deberías ir modificandolo acorde a la necesidad _
de tu proyecto
If EsTaDo <> Empty Then
Columns("A:D").Select
Selection.Clear
Sheets("HojaX").Select
Range("A1:D1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=EsTaDo
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("HojaY").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("HojaX").Select
Range("A1:D1").Select
Selection.AutoFilter
Sheets("HojaY").Select
Range("E1").Select
End If
End Sub