Так всем спасибо, с этим разобрался....
а может кто-нибудь подсказать, можно ли такое сделать со сдвигом ячейки вниз?

Вот код, который у меня получился:

Private Sub TextBox1_Change()

Sheets("Справочник").Range("C5").Value = TextBox1.Value
UserForm1.Hide
End Sub

Вот код, который копирует ячейку в другой лист со здвигом ячеек вниз

Sub Макрос10()
Range("H5").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Справочник").Select
Range("F5").Select
Selection.Insert Shift:=xlDown
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("начало").Select
Range("H5").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C1").Select
End Sub

подобное мне нужно и в первый код, кто-нить помогите!!!!!

Так всем спасибо, с этим разобрался....
а может кто-нибудь подсказать, можно ли такое сделать со сдвигом ячейки вниз?

Вот код, который у меня получился:

Private Sub TextBox1_Change()

Sheets("Справочник").Range("C5").Value = TextBox1.Value
UserForm1.Hide
End Sub

Вот код, который копирует ячейку в другой лист со здвигом ячеек вниз

Sub Макрос10()
Range("H5").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Справочник").Select
Range("F5").Select
Selection.Insert Shift:=xlDown
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("начало").Select
Range("H5").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C1").Select
End Sub

подобное мне нужно и в первый код, кто-нить помогите!!!!!

Кто-нибудь ответьте, просто я в этом хуже чайника, VBA не знаю совсем, пытаюсь сам разобраться, но в хэлпах не все есть, хотя может и есть, просто не понимаю, что мне искать...