Как выбрать диапазон всех значений до конца под строкой 3?

Question

Set Data = range(Cells(3, 1), .End(xlDown).End(xlToRight)).Select

Answer 1

dim Data as range

with ActiveSheet.Cells(3, 1)
    Set Data = range(.End(xlToRight), .End(xlDown))
    Data.Select
end with