Con esta macro copia los datos de la hoja BASE a la hoja RESUMEN, hay que considerar que al ejecutar la macro por primera vez todos los datos encontrados en la hoja BASE serán copiados las ventas que tiene la condición CREDITO, si se ejecuta nuevamente la macro copia de nuevo todos los datos.
Lo correcto seria de que al momento de capturar los datos a la hoja BASE en ese mismo proceso enviar los datos a la hoja RESUMEN. Si el llenado de los datos de la hoja BASE se realiza mediante un formulario de captura ahí se puede adaptar el proceso para guardar a la hoja RESUMEN cuando se cumpla la condición, asimismo a la hoja de compras a CREDITO.
Esta macro hace el copiado a la hoja RESUMEN, pero no sera 100% funcional, si da más datos de su forma de captura es probable ayudarle.
Saludos
Sub CtasXcobrar()
Dim datobuscar As String
ultimaFila = Sheets("BASE").Range("A" & Rows.Count).End(xlUp).Row
If ultimaFila < 1 Then
Exit Sub
End If
Worksheets("BASE").Select
Range("A1").CurrentRegion.Select
datobuscar = "CREDITO"
For cont = 1 To ultimaFila
If Sheets("BASE").Cells(cont, 3) Like datobuscar Then
dato1 = Sheets("BASE").Cells(cont, 1)
dato2 = Sheets("BASE").Cells(cont, 3)
dato3 = Sheets("BASE").Cells(cont, 4)
dato4 = Sheets("BASE").Cells(cont, 6)
dato5 = Sheets("BASE").Cells(cont, 7)
dato6 = Sheets("BASE").Cells(cont, 8)
dato7 = Sheets("BASE").Cells(cont, 9)
ufilaResumen = Sheets("RESUMEN").Range("A" & Rows.Count).End(xlUp).Row
Sheets("RESUMEN").Cells(ufilaResumen + 1, 1) = dato1
Sheets("RESUMEN").Cells(ufilaResumen + 1, 2) = dato2
Sheets("RESUMEN").Cells(ufilaResumen + 1, 3) = dato3
Sheets("RESUMEN").Cells(ufilaResumen + 1, 4) = dato4
Sheets("RESUMEN").Cells(ufilaResumen + 1, 5) = dato5
Sheets("RESUMEN").Cells(ufilaResumen + 1, 6) = dato6
Sheets("RESUMEN").Cells(ufilaResumen + 1, 7) = dato7
End If
Next cont
Worksheets("RESUMEN").Select
End Sub