Ciao,
mi trovo incartato nel concatenare le due splendide macro che mi hai preparato per copiare/ incollare dei dati filtrati di una tabella. Non riesco proprio a uscirne... Che cippa!! :)

Ho una tabella con le caratteristiche già viste nel thread
http://forum.aiutamici.com/yaf_postst72511_Excel-2007-Area-copy-e-area-Paste-di-dati-filtrati.aspx
e devo copiarla in una pagina col sistema dell' "incolla in coda ad un'altra tabella" già visto in quest'altro thread
http://forum.aiutamici.com/yaf_postst72494_Excel-2007-Macro-per-incollare-colonne-di-dati-di-lunghezza-variabile.aspx
ma non riesco a concatenare nel modo corretto le due macro
i dati sono in foglio 'Modulo' (area variabile da B1 a CNn, dato che le tabelle non hanno tutte la stessa lunghezza) e vanno copiati in foglio 'Archivio' in coda ad altri dati già presenti nel foglio, 5 righe dopo e a partire da col.B

Sub_Copia_incolla()
Uriga = Range("B" & Rows.Count).End(xlUp).Row
Set area = Range("B1", Range("CN" & Uriga)).SpecialCells(xlCellTypeVisible)
area.Copy Destination:=Sheets("Archivio").Range("b2")
Set area = Nothing
??
Uriga = Sheets("Archivio").Range("b" & Rows.Count).End(xlUp).Row + 5
With Selection 'qui dovrei selezionare di volta in volta l'area, ma nel mio caso è quella trovata dalla prima parte della macro... non devo selezionarla
.Copy Destination:=Sheets("Archivio").Cells(Uriga, 2)
End With
End Sub

Qual'è la sintassi corretta?
Grazie assai e buona serata,
eZio

salve
qualcosa del genere?:

Sub Copia_incolla()
With Sheets("Modulo")
Uriga = .Range("B" & Rows.Count).End(xlUp).Row
Set area = .Range("B1", .Range("CN" & Uriga)).SpecialCells(xlCellTypeVisible)
End With
With Sheets("Archivio")
Uriga2 = .Range("b" & Rows.Count).End(xlUp).Row + 5
End With
area.Copy Destination:=Sheets("Archivio").Cells(Uriga2, 2)
Set area = Nothing
End Sub

saluti
Giap

---