выбрать ячейки а считать другие ячейки

[BigVito]

Доброе время суток!
Знаний мало, хотелось бы их пополнить, если можете посоветуйте VBA книжки.
А проблема такая:
есть 3 и более столбцов, мне нужно чтоб макрос: если я выбираю (select) (a1,a2) ячейки из первого столбца, чтоб у меня считалось SUM остальных ячеек(b1,b2).
пример: если я выбираю 1,2 то сумируется 22+23 и 55+56

1 22 55
2 23 56
3 24 57
4 25 58
5 26 59
6 27 60
7 28 61
8 29 62
9 30 63
10 31 64
45 111
Спасибо!!!

[IgorGO]

а сколько столбцов суммировать? а куда результаты девать? Вы почитайте сами, что написали - задачи там нет.

[Казанский]

Выбирать можно и несмежные диапазоны:

Sub BigVito()
Dim r As Range
On Error GoTo 1
Set r = Intersect(Selection, Columns(1))
MsgBox Application.Sum(r.Offset(, 1)) & "  " & Application.Sum(r.Offset(, 2))
Exit Sub

1 MsgBox "Не выделены ячейки в первом столбце", vbExclamation
End Sub

[BigVito]

Сообщение от Казанский

Выбирать можно и несмежные диапазоны:

Sub BigVito()
Dim r As Range
On Error GoTo 1
Set r = Intersect(Selection, Columns(1))
MsgBox Application.Sum(r.Offset(, 1)) & "  " & Application.Sum(r.Offset(, 2))
Exit Sub

1 MsgBox "Не выделены ячейки в первом столбце", vbExclamation
End Sub

Да да да. Именно Это. Супер.
Можете помочь еще одним условием? Чтоб SUM, только если в первом столбце есть данные (числа, буквы)
СПАСИБО!!!

[BigVito]

литературу посоветуйте

[Serge 007]

Книги по Visual Basic for Application