Кнопки не стал делать - как мне кажется, это лишнее.  
 
Посмотрите пример в файле: http://excelvba.ru/XL_Files/Sample__21-03-2010__15-18-50.zip  
 
Для перехода на лист поставщика (или для создания этого листа, если его ещё нет)  
ДВАЖДЫ ЩЕЛКНИТЕ на ячейке с наименованием поставщика (во втором столбце)  
 
Поля АДРЕС и ДЕЯТЕЛЬНОСТЬ переносятся на создаваемый лист.  
 
Вот весь код:  
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
   If Target.Column = 2 And Target.Row > 6 Then  
       Cancel = True: ПерейтиНаЛистПоставщика Target  
   End If  
End Sub  
 
Sub ПерейтиНаЛистПоставщика(ByRef cell As Range)  
   On Error Resume Next: If Len(Trim(cell)) = 0 Then Exit Sub ' если ячейка пустая  
   Dim shd As Worksheet: Set shd = Worksheets(CStr(cell))  
   If Err = 0 Then shd.Activate: Exit Sub    ' если лист уже существует  
   sht.Copy , sht  
   Set shd = ActiveSheet  
   shd.Name = cell: shd.Tab.Color = vbGreen  
   shd.Range("организация") = cell.Next  
   shd.Range("адрес") = cell.Next.Next  
End Sub

А еще лучше EducatedFool,  скажи как с тобой связаться, есть небольшое коммерческое предложение=)