Помогите переделать VBA макрос.

[s707]

Текст макроса:
-------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

'***********************************************
' help urllink-doggie-yandex.ru
'***********************************************

On Error GoTo Err

iClm = Target.Column: iRow = Target.Row

iDate = Target.Value

If iClm = 1 And iRow >19 And iRow < 301 Then

Select Case iDate
Case "1"
iDate = "Рога и копыта"
Case "2"
iDate = "Кидалов и сыновья"
Case "3"
iDate = "ООО Торговый Дом Шелупонь"
Case "4"
Rem : И так далее ...
End Select

Application.EnableEvents = False

Application.Undo

Target.Value = iDate

Application.EnableEvents = True

End If

Err: End Sub
---------------------------------------------------------

ВОПРОС:

Можно сделать так чтобы в колонке A при вводе цифры 1 подставлялась одна информация,
в колонке B при вводе цифры 1 другая и т.д.

Чтобы получилось типа:
------------------------------------------------------
If iClm = 1 And iRow > 19 And iRow < 301 Then

Select Case iDate
Case "1"
iDate = Параметры.Cells(1,2)
Case "2"
iDate = "ООО Торговый Дом Шелупонь"
Case "3"
iDate = "ООО Торговый Дом Шелупонь"
Case "4"
Rem : И так далее ...
End Select

If iClm = 2 And iRow > 19 And iRow < 301 Then

Select Case iDate
Case "1"
iDate = Параметры.Cells(1,2)
Case "2"
iDate = "ООО Торговый Дом Шелупонь"
Case "3"
iDate = "ООО Торговый Дом Шелупонь"
Case "4"
Rem : И так далее ...
End Select
-----------------------------------------------------

[Naeel Maqsudov]

ВОПРОС:

Можно сделать так чтобы в колонке A при вводе цифры 1 подставлялась одна информация,
в колонке B при вводе цифры 1 другая и т.д.

Так сделать можно. Только зачем писать макросы там, где можно обойтись только формулами?!

PS.
Для оформления исходного кода используйте тег [ code ]

[s707]

Спасибо, уже все сделал, люди хорошие помогли.