I figured it out. I just had to take the "Select" keyword off of my code like this:
Set rng = Range("A1", Range("A1").End(xlDown))