болванка

извиняюсь, что не сделал этого сразу!  
для наглядности прикрепляю файл.  
п.с. выбрав определенное авто(вагон),я нажимая на кнопку(макрос), мог заполнить ячейки выделенные желтым цветом на другом листе  
заранее спасибо!

спасибо за вариант!  
просто в момент заполнения, п/а может и не быть.  
его уже после распечатки вписывают от руки.  
 
хотелось, чтобы выбрав вагон, я мог заполнить форму и распечатать, имея те данные, которые будут у меня на тот момент

вы не могли б помочь!  
т.к. я в этом ноль!

Упс, а как заполнять первый лист? :)  
Предлагаю такой вариант:  
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
   If Target.Count > 1 Or IsEmpty(Target) Then Exit Sub  
   If [A1] = "Z" Then Exit Sub
   If Not Intersect(Target, Columns(5)) Is Nothing Then  
       x = Split("AD15 AE25 AE26 T25 X25 U37 D32 Q37 AF37 AF38")    'указать ячейки получатели  
       y = Split("D E F H J K M J E F") 'указать столбцы отправителя  
       For j = 0 To 9  
           Sheets(2).Range(x(j)) = Cells(Target.Row, y(j))  
       Next j  
       Sheets(2).Select  
       Beep  
   End If  
End Sub  
 
 
Теперь код будет работать тогда, когда в А1 первого листа нет буквы Z/  
Т.е. нужно дополнить ноиера вагонов - сперва в А1 пишите Z, потом дополняете, стираете Z.  
Можно что-то другое в таком ключе придумать...

я не успел, да и вариант самый обычный корявый). но раз уж сделал выложу