Для активации конкретного листа, с которым должна идти работа, можно воспользоваться кодом:

; Имя документа

book = Application.ActiveWorkbook.Name

; Имя листа (можно задать фиксированное)

sheet = Application.ActiveSheet.Name

; Активируем для последующей работы

Workbooks(book).Activate

Worksheets(sheet).Activate