Есть код, хочу его изменить но ничего не получается.
Код этот берет выделеную ячейку и еще несколько и вставляет на новую страницу при нажатии кнопки.Даже если выделить несколько в столбце, все равно берет только 1 я чейку. Нужно сделать так, чтобы он все выделеные ячейки из столбца и те что рядом вставлял на новую страницу.

Вот код:

Sub Add_Click()
WBName = ActiveWorkbook.Name
Order_Row = 13
Bill_Row = 21

With Workbooks(WBName).Worksheets("Учет")
rw = ActiveCell.Row
cl = ActiveCell.Column

WareCode = .Cells(rw, 2).Value
WareName = .Cells(rw, 3).Value
WarePost = .Cells(rw, 4).Value
WareProz = .Cells(rw, 5).Value
WareDoch = .Cells(rw, 10).Value
WareD = .Cells(rw, 10).Value
CurRate = .Cells(6, 3).Value
.Cells(rw, cl).Select
End With

If WareCode <> "" Then
With Workbooks(WBName).Worksheets("Отчет")
Do While .Cells(Order_Row, 1).Value <> ""
Order_Row = Order_Row + 1
Loop
.Cells(2, 5).Value = Date
.Cells(1, 5).Value = CurRate
.Cells(Order_Row, 1).Value = WareCode
.Cells(Order_Row, 2).Value = WareName
.Cells(Order_Row, 3).Value = WarePost
.Cells(Order_Row, 4).Value = WareProz
.Cells(Order_Row, 5).Value = WareDoch
.Cells(Order_Row, 6).Value = WareRaschod

.Rows(Order_Row + 1).Insert
End With
End If
Workbooks(WBName).Worksheets("Учет").Activate

End Sub

Помогите пожалуйста

Спасибо