Bom dia amigos, as duas respostas satisfizeram minha necessidade, mas com um problema do recurso listbox, que limita quantidade de colunas a 10 coluna...

veja agora!!! Excelente ! Faltou alguns detalhes: Faltou declarar as variáveis data3 e data4, ficando assim : Dim data1, data2, data3, data4 As Date ...

VEJA SE É ISTO Esta dando erro em tempo de execução 13 na linha linha = Sheets(wsOrigem).Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row

Excelente, funcionou !