Копирование выделенных несмежных ячеек таблицы excel

Dim SelAr As Range, marr()
With ActiveSheet
Set SelAr = Selection: n = SelAr .Rows.Count
ReDim marr(0 To n - 1, 0 To 4)
For i = 1 To n:
marr(i - 1, 0) = Selection(i, 1)
marr(i - 1, 1) = Selection(i, 3)
marr(i - 1, 2) = Selection(i, 5)
marr(i - 1, 3) = Selection(i, 9)
marr(i - 1, 4) = Selection(i, 10)
Next i
End With

 Dim marr()
    Dim iAreaCount As Integer
    Dim i As Integer
    iAreaCount = Selection.Areas.Count
    ReDim marr(0 To iAreaCount - 1, 0 To 4)
        For i = 1 To iAreaCount
            marr(i - 1, 0) = Selection.Areas(i).Columns(2).Value
            marr(i - 1, 1) = Selection.Areas(i).Columns(3).Value
            marr(i - 1, 2) = Selection.Areas(i).Columns(4).Value
            marr(i - 1, 3) = Selection.Areas(i).Columns(5).Value
                If Selection.Areas(i).Columns(9).Value = Empty Then
                    marr(i - 1, 4) = "0"
                Else
                    marr(i - 1, 4) = Selection.Areas(i).Columns(9).Value
                End If
            MsgBox marr(i - 1, 0) & " " & marr(i - 1, 1) & " " & marr(i - 1, 2) & " " & marr(i - 1, 3) & " " & marr(i - 1, 4)
        Next i