Xin giúp đỡ về code VBA xử lý TitleRows

[thanhdatx2bk]

Nhờ ace trong diễn đàn giúp đỡ về vấn đề chọn hàng tiêu đề khi in
Em có đoạn code sau khi thực hiện lệnh thu macro: ( phím tắt ctrl+t)
Sub tieude()
With ActiveSheet.PageSetup
.PrintTitleRows = "$2:$3"
End With
end sub
Vấn đề đặt ra là giá trị "$2:$3" em muốn nó tự động thay đổi khi em chọn hàng tiêu đề. chứ không phải cố định như này. Ví dụ giờ em có 1 file excel mới, sau khi chọn hàng 3 . Nhấm Crtl +T . tự động hàng 3 được lặp lại khi in
chuyển qua sheet mới, chọn hàng 5 . Nhấn Ctrl +T. tự động hàng 5 được lặp lại khi in
Nhờ các bác giúp đỡ .
Trân trọng và cảm ơn !