Public Sub Size()
Dim A() As String 'B() As String
Dim i As Long 'j As Long
Dim Cell As Range
Dim copy_row As Range
'Dim stroka
'Dim stolbets
Dim lRow
'Dim lLastrowInSelectedRange
'Dim MyArray()
For Each Cell In Selection
'Dim s As Integer
'Dim y As Long
'lRow = Selection.Row 'первая строка
'lLastrowInSelectedRange = Selection.Row + Selection.Rows.Count - 1 'последняя строка
Dim arr_()
ReDim arr_(0)
        'stroka = Cell.Row
        'stolbets = Cell.Column
                A = Split(Cell.Value, "-")
                'B = Split(Cells(stroka, stolbets), "-")
'                MsgBox A(0)
'                MsgBox B(1)
                       Set copy_row = Cell.Offset(0, -5).Resize(1, 5)
                        For i = CLng(A(0)) To CLng(A(1)) Step 2
                            arr_(UBound(arr_)) = i
                            'Debug.Print i
                            ReDim Preserve arr_(UBound(arr_) + 1)
                        Next i
                    With Sheets(2)
                        lRow = .Cells(Rows.Count, 6).End(xlUp).Row + 1
                        .Cells(lRow, 6).Resize(UBound(arr_)) = Application.Transpose(arr_)
                        .Cells(lRow, 1).Resize(UBound(arr_), 5).Value = copy_row.Value
                    End With
        Next Cell
End Sub