Ciao, grazie per l'esempio .
Il problema e che ---UltimaRiga = ActiveSheet.Cells.Find(What:="", _
SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row---
non mi va a cercare l'ultima riga del foglio di lavoro
es. la mia ultima riga e la 20 sulla colonna G
la macro punta alla riga 23 ...poi il resto funziona alla grande dovrei impostare anche un ciclo che controlli colonna per colonna se sulla riga 5 ci sono dati, se e vuota devo ripetere l'operazione di copia e incolla fino all'ultima riga con dati
grazie