i = 1
riga = 1


Do While Cells(i, 1) <> ""
If Mid(Cells(i, 1), 1, 2) = "07" Then

ora dovrebbe startare dal carattere 8 , 2 = "09"
e riportarlo su un altro foglio excel