set xlSelectedRange = Cells(rows.count, 1).specialcells(xlcelltypevisible).end(xldown).Select
Если вы ищете пустую ячейку, это не сработает, она перейдет к следующей используемой ячейке.
Возможно, вы захотите квалифицировать свои диапазоны следующим образом:
with Workbooks("myworkbookpath/myworkbook").sheets("Sheet1")
set xlSelectedRange = .Cells(.rows.count, 1).specialcells(xlcelltypevisible).end(xldown).Select
end with
В зависимости от того, какова ваша конечная цель, вам, скорее всего, не нужно ничего выбирать. Как избежать Выберите .
Я не уверен, что означает последняя половина названия вашего вопроса.