Replace:
Range("A533:AY533").Select
Application.CutCopyMode = False
Selection.Copy

Range("A533").Select

With:
iEnd = Range("A65536").End(xlUp).Row - 1
Range("A" & iEnd & ":AY" & iEnd).Select
Application.CutCopyMode = False
Selection.Copy
Range("A" & iEnd).Select

I didn't test this. I believe the - 1 is needed because your earlier
code put something in row 534, but maybe not.

Hth,
Merjet