Как записать процедуру?

[Вадим12091965]

Всем привет. У меня есть 4 блока выражений:
1.

Лист9.[O5].Value = TextBox9.Text Else Лист9.[O5].Value = ""

2.

Лист9.[O7].Value = TextBox9.Text Else Лист9.[O7].Value = ""
            Лист9.[R7].Value = TextBox12.Text Else Лист9.[R7].Value = ""

3.

Лист9.[M9].Value = TextBox9.Text Else Лист9.[M9].Value = ""
            Лист9.[N9].Value = TextBo5.Text Else Лист9.[N9].Value = ""
            Лист9.[P9].Value = TextBox12.Text Else Лист9.[P9].Value = ""
            Лист9.[Q9].Value = TextBox11.Text Else Лист9.[Q9].Value = ""

4.

Лист9.[M11].Value = TextBox9.Text Else Лист9.[M11].Value = ""
            Лист9.[N11].Value = TextBo5.Text Else Лист9.[N11].Value = ""

Можно ли записать для каждого блока свою процедуру где переменной будет номер строки (каждого из таких выражений будет много, отличаться будут только номером строки), что-бы мог вставить в нужный мне код выражение Call a1 (87), где а1 (а2, а3, а4) - процедура блока №1, №2, №3, №4 соответственно; 87(переменная) - номер строки?

[maksim_serg]

вот так что ли?

sheets("лист9").range("M" & i).value=textbox9.text else sheets("лист9").range("M" & i).value=""