Диапазон смещенный относительно активной ячейки (VBA)

[Severny]

Подскажите пожалуйста как задать диапазон смещенный относительно активной ячейки.
И почему не работает код:

Sub Test()
Dim N As Variant
N = ActiveCell.Offset(0, 1)
ActiveCell.Offset(0, 1) = "11"
With N
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
End With
End Sub

[Hugo121]

Set N = ActiveCell.Offset(0, 1)

[Severny]

Hugo121 Спасибо!
А как решить первый вопрос?
Где-то так ActiveCell.Offset.Range()?

[Hugo121]

Sub tt()
Dim r As Range, rr As Range
Set r = [a1:a10]
r.Value = "test"
Set rr = r.Offset(, 5)
rr.Value = "test2"
End Sub

[Severny]

Hugo121 Этот код смещает заданый диапазон на 5 столбцов вправо. Я правильно понял? А как реализовать что бы именно относительно активной ячейки на (2, 3), к примеру, задавлся какой либо диапазон?

[Hugo121]

Я думал, уже всё понятно...

Sub tt()
Dim r As Range, rr As Range
Set r = ActiveCell
r.Value = "test"
Set rr = r.Offset(, 5)
rr.Value = "test2"
End Sub

Sub ttt()
Dim r As Range, rr As Range
Set r = Selection
r.Value = "test"
Set rr = r.Offset(, 5)
rr.Value = "test2"
End Sub

Sub tttt()
Dim rr As Range
Set rr = Selection.Offset(, 5)
rr.Value = "test2"
End Sub

[Severny]

Hugo121 Извините, но не понятно и сейчас.

[Severny]

Hugo121 Извините, но не понятно и сейчас.

[Hugo121]

Вроде похоже посчитал...

Sub tt()
Dim rr As Range
Set rr = Selection.Offset(4, 2)
Set rr = rr.Resize(17, 4)
rr.Borders.Weight = xlThin

rr.Value = "test2"
End Sub

[Severny]

Спасибо огромное, самое оно!