Empty excel sheet leads to VBA: Runtime Error 1004

Question

    \'^^ Sorting said data
    Set rng = WS.Range("A2")
    **Set rng = Range(rng, rng.End(xlDown).Offset(2000, 0))**
    Set rng = rng.Resize(rng.Rows.Count,