Auto Size in Excel to PPt paste Macro

Hello,
I have a working macro where I use a Forms Command Button w/ a Macro that copy/paste specific variables and range in the workbook to a pre-defined PowerPoint template file (in the same directory as the workbook file). See code below:

Questions:

1) Is there a better script to reference a value in a cell value in Excel and Paste in PPT template?

2) Is there away to auto scale the copy range from Excel to PPt? Curently I have to manually adjust the height/width parameters.

Thanks in Advance!