copia righe con più condizioni

copia righe con più condizioni
di capoteam data: 25/01/2015 21:00:41
ciao a tutti
vorrei risolvere questo problemino che mi tormenta

ho una tabella che va da a1 a d8 così composta

a1 b1 c1 d1
casa ordnarie contanti 10
bollette enel carta 10
riatorante cena bancomat 10
e così via

ora vorrei copiare le righe in c1 con diverse condizioni, per esempio tutte quelle che riportano contanti e carta.

copiando ed arrangiandomi sono riuscito a mettere in piedi un codice, ma riesco a copiare sul un parametro tipo contanti,
vi ringrazio se riusciamo a risolvere il problema
Sub copiarighe3() Sheets("Foglio1").Select Range("$c$1:$c$6").AutoFilter field:=1, Criteria1:="contanti" Range("A1:d6").Copy Destination:=Range("A30") Selection.AutoFilter Range("A30").Select End Sub
di lepat (utente non iscritto) data: 25/01/2015 22:01:44
allega un file di esempio con anche il risultato desiderato