Có 3 vấn đề trong code của bạn:
1. 2 bên dấu & là 2 khoảng trắng. Nếu bạn để liền cho công thức đơn giản thì VBA tự động tạo dấu cách cho bạn. Nếu phức tạp quá nó sẽ không tạo dấu cách và câu lệnh lỗi sẽ hiện màu đỏ.
2. Thực ra thao tác boder trên, dưới, trái, phải của bạn có thể rút gọn như sau: Selection.Borders.LineStyle = xlContinuous
3 Thao tác tô màu có thể rút gọn như sau: Range(Selection.Row & ":" & Selection.Row).Interior.Color = 65535