Нужен человек, готовый ставить задачки по массивам VBA

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

Здравствуйте!
В университете, к сожалению, не преподавали VBA. Вынужден самостоятельно его изучать для себя любимого.
Хотелось бы найти человека (несколько человек), который (-ые) ставил (-и) бы задачки от самой простой к сложным. И после проверял выложенный в этом топике ответ. Если неправильный ход мыслей, то писал тут об этом. Если можно как то упростить код, то писал: "А попробуй-ка использовать функцию "Тили - тили, трали-вали"".
Думаю, тем самым, убьём много зайцев, причём не только моих.
Движение вперёд...

Решение задачи: «Нужен человек, готовый ставить задачки по массивам VBA»

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

                            Sub sumStrStolb()
Dim x As Range
  Set x = Range("A1").CurrentRegion
  With x.Columns(1).Offset(, x.Columns.Count + 1)
    .FormulaR1C1 = Replace("=SUM(RC1:RC#)", "#", x.Columns.Count)
    .Value = .Value
  End With
  With x.Rows(1).Offset(x.Rows.Count + 1)
    .FormulaR1C1 = Replace("=SUM(R1C:R#C)", "#", x.Rows.Count)
    .Value = .Value
  End With
End Sub

                        