excel vba - set print area for dynamic range in VBA -

i want write vba code setting print area. first page introduction (a1:q53) , a54 onwards want print upto end of data. kindly suggest command. there empty cells on first page hence if give command search end of data stops @ first page itself.

even though question not clear, suggest using either currentregion of range a54 or resolve range need using usedrange property of sheet.