Hola buenas noches, espero su ayuda por favor.

Estoy intentando copiar datos de un libro:  prueba_guardarotrolibro(TEMP) para  pasarlo a otro: baseprueba(TEMP), desde la columna A hasta la columna AO, que cumplan la condicion  en la columna Estado = Cerrado

al pasar al otro libro debe copiarse debajo del ultimo registro.

ESPERO CONTAR CON USTEDES, DE ANTEMANO MUCHAS GRACIAS, ES MUY IMPORTANTE.

baseprueba.xlsx prueba_guardarotrolibro.xlsm

Logrado..

les dejo  el codigo por si lo necesitan

 

Sub CONSOLIDAR()
Application.ScreenUpdating = False
Dim ufa, ufb As Integer

Dim LibroDestino As Workbook
Dim HojaRegistro As Worksheet

ufa = HREGISTRO.Range("A" & Rows.Count).End(xlUp).Row
Set LibroDestino = Workbooks.Open(ActiveWorkbook.Path & "\BASES\BASECOTIZACIONES.xlsx")
Set HojaRegistro = LibroDestino.Worksheets("TEMP")
ThisWorkbook.Activate
ufb = HojaRegistro.Range("A" & Rows.Count).End(xlUp).Row

        With HREGISTRO.Range("A2:AO" & ufa) '.CurrentRegion
                .AutoFilter 20, Criteria1:="=" & "CERRADO", Operator:=xlOr, Criteria2:="=" & " "
                .SpecialCells(12).COPY HojaRegistro.Range("A" & ufb + 1)
                .AutoFilter

        End With

LibroDestino.Save
LibroDestino.Close

Application.ScreenUpdating = True