koda aşağıdaki satırları ekleyerek alan seçebiliyorsunuz ama maalesef bu durumda da çerçeve gidiyor

    SonStr = Hdf.Cells(Hdf.Rows.Count, "B").End(xlUp).Row

Hdf.PageSetup.PrintArea = Hdf.Range("B2:H" & SonStr).Address