Пройтись по веделенному дипазону - VBA

Формулировка задачи:

Столкнулся в проблемой. Есть таблица (данные в ней будут пополняться), и программа которая отправляет смс по средствами подключенного телефона. Данные в программу передаются через командную строку. Как можно реализовать, при выделении диапазона или путем вызова (input) окна с возможностью выбрать диапазон с какими данными будет работать (данные в столбцах с первого по шестой), пройтись по всем строкам и совершить выборку по строкам и считать данные и передать их. В 7 столбец, после обработки строки записать "Да". Вот пример которые позволяет отправить данные из первой строки.

Sub delivery()
tel = Range("A2").Value         ' номер телефона
sms = Range("B2").Value        ' смс
ddelivery = Range("C2").Value ' отправка
ddate = Range("D2").Value     ' дата
n_ttn = Range("E2").Value      ' номер отправки
kol_mest = Range("F2").Value  ' мест
Shell ("D:\sms\sms.exe -n" & Chr(34) & "+" & tel & Chr(34) & " -m" & Chr(34) & sms & " " & ddelivery & " от " & ddate & ", " & n_ttn & " " & "," & kol_mest & "м" & Chr(34)), vbHide
End Sub

Решение задачи: «Пройтись по веделенному дипазону»

textual
                            Листинг программы 
                        

                            For Each R In Selection.Rows
rw = R.Row
   tel = Cells(rw, 1).Value      ' номер телефона
   sms = Cells(rw, 2).Value       ' смс
   ddelivery = Cells(rw, 3).Value ' отправка
   ddate = Cells(rw, 4).Value     ' дата
   n_ttn = Cells(rw, 5).Value     ' номер отправки
   kol_mest = Cells(rw, 6).Value  ' мест
   Shell ("D:\sms\sms.exe -n" & Chr(34) & "+" & tel & Chr(34) & " -m" & Chr(34) & sms & " " & ddelivery & " от " & ddate & ", " & n_ttn & " " & "," & kol_mest & "м" & Chr(34)), vbHide
   Cells(rw, 7) = "да"
Next
                        