Как говорит вариант, Вы не можете выбирать ячейки без изменения фокуса листа.
Но вы можете использовать SpecialCells
, чтобы выбрать ячейки
Sub tester()
Dim x1 As Range
Dim x2 As Range
Dim bigRange As Range
Sheets("sheet2").Select 'the page you need
Range("E9").Select ' any select will do
Selection.SpecialCells(xlCellTypeFormulas, 23).Select 'select numbers, text, etc.
Set x1 = Selection
Range("E9").Select ' any select will do
Selection.SpecialCells(xlCellTypeConstants, 23).Select 'select formulas
Set x2 = Selection
Set bigRange = Application.Union(x1, x2) 'join both ranges
bigRange.Select
Sheets("sheet1").Select 'return to the page with the button
End Sub
с помощью SpecialCells
иметь дополнительную информацию о том, что можно выбрать.