Поиск последней строки и последнего столбца таблицы Excel в макросе

Question

Я пишу макрос в Excel, чтобы добавить сводную диаграмму в одну книгу.И я пытаюсь запустить этот макрос в другой книге. Переменные ACTST и ActWB получают правильные значения.Но переменные LastRow и LastCol получают значения как 0. Кто-нибудь может сказать, где я не прав?

ACTST = ActiveSheet.Name
ActWB = ActiveWorkbook.Name

'Insert a New Blank Worksheet
 On Error Resume Next
 Set DSheet = Worksheets("Sheet1")
 Worksheets("Sheet1").Activate

 'Define Data Range
 LastRow = DSheet.Cells(Rows.Count, 1).End(xlUp).Row
 LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column
 Set PRange = DSheet.Cells(1, 1).Resize(LastRow, LastCol)