si è ok
ecco il mio file
http://www.filedropper.com/plannerbriefing02maurizio
ho modificato il codice:
Sub CopiaDati()
Dim ur As Long
Dim i As Integer
Dim tabaerei As Range
Set tabaerei = Worksheets("tabaereisimpler").Range("a6:i319")
For i = 4 To 12
Cells(5, i).Value = Application.WorksheetFunction.VLookup(Worksheets("Planner").Range("a6").Value, tabaerei, i - 3, False)
Next i
End Sub
per aggiungere il nome dell'aereo
ora da qui posso continuare e modificare il programmino delle tratte....di volo