VBA select cell with a specific value and all cells below until blank

If the section always start in row 413, and you want column A,

Dim rng As Range
':
Set rng = Worksheets("some_sheet").Range("A413")
If Not IsEmpty(rng.Offset(1, 0).Value) Then Set rng = Range(rng, rng.End(xlDown))