How To Assign A Non-contiguous Discontinuous Range To An Array

[snb]

or

Sub M_snb()
    Cells(1).CurrentRegion.Name = "snb_000"
    sn = Application.Index([snb_000], [row(snb_000)], Array(1, 2, 3, 7, 8, 10))
End Sub