你後來改的那個
Range("A549").select
這行可以拿掉

因為ActiveSheet.UsedRange.Rows.Count是算出總共有幾行，然後再加1。
假設你原本有549行，那出來的結果就是549+1=550
所以Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
出來的結果就會變成是Range("A550").Select
所以你就不用特別指定那一行了

另外，其實我也是新手，我也不熟…
我只是用Google搜尋「Excel VBA 最後一行」，然後把找到的答案測試一下而已…