I found a similar solution to this question in c# How to Select all the cells in a worksheet in Excel.Range object of c#?
What is the process to do this in VBA?
Maybe this might work:
Sh.Range("A1", Sh.Range("A" & Rows.Count).End(xlUp))