如何将已选择的列存储为范围对象？

Question

获取运行时错误：需要对象。需要语法帮助。

Dim rng1 As Range
Set rng1 = Range(Selection, Selection.End(xlDown)).Select