Работа с диапазоном

[S_Sasha]

Столкнулся в проблемой. Есть таблица (данные в ней будут пополняться), и программа которая

отправляет смс по средствами подключенного телефона. Данные в программу передаются через командную

строку.
Как можно реализовать, при выделении диапазона или путем вызова (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

[IgorGO]

Sub delivery()
  Dim r&, a
  a = Range(Cells(Rows.Count, 7).End(xlUp).Offset(1, 0), Cells(Rows.Count, 1).End(xlUp)).Value
  If IsEmpty(a(2, 1)) Then Exit Sub
  For r = 1 To UBound(a)
    Debug.Print "D:\sms\sms.exe -n""+" & a(r, 1) & """ -m""" & a(r, 2) & " " & a(r, 3) & _
    " от " & Format(a(r, 4), "DD.MM.YYYY") & ", " & a(r, 5) & ", " & a(r, 6) & "м""" ') , vbHide
    a(r, 7) = "отправлено"
  Next
  Cells(Rows.Count, 7).End(xlUp).Offset(1, -6).Resize(UBound(a), 7).Value = a
End Sub

а этот - все, по-очереди