Найти последнюю не пустую ячеку VBA

[jeka911]

Народ подскажите вопрос как найти последнюю не пустую ячейку в VBA скриптом.Дело такое выгружаю с базы значения в ексель файл и вба скриптом хочу разбить выгруженные данные на другие листы .Так вот как найти пустую ячейку то он мне диапазонвыводит до 60+тысяч строк на печать такое не выведешь Пример:

Sub DataCompare()
Dim kd As String
Sheets("Data5").Select
Range("B2").Select
Range("B2:H25").Select
Selection.Copy
Sheets("Дорожный отчет").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B1").Select
MsgBox (Range(ActiveCell, ActiveCell.End(xlDown)).Count)
'kd = "$B$1:$G$" + Range(ActiveCell, ActiveCell.End(xlDown)).Count
'Sheets("Дорожный отчет").PageSetup.PrintArea = kd
Range("B1").Select


End Sub

помогите плиз)

[kuklp]

А самому себе помочь? Поиском пользоваться не умеете? Вопрос задавался тысячи раз. Строка поиска: "Найти последнюю заполненную ячейку"

[VictorM]

Вопрос задавался тысячи раз.

Вот это точно.
И на многих форумах.
Всего-то - потрудиться поискать.
Как определить последнюю ячейку на листе через VBA?

[staniiislav]

или здесь:

[jeka911]

сделал вот так :

Dim lLastRow As Long
Dim lLastCol As Long
Sheets("Data5").Select
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
lLastCol = Cells(1, Columns.Count).End(xlToLeft).Column
Range("B2:H" & lLastRow).Select
Range("B2:H" & lLastCol).Select
Selection.Copy
Sheets("Дорожный отчет").Select

но он вставляет на другой лист в строку b1 но мне надо чтоб в b2 тоесть ниже

[kalbasiatka]

Приложите файл и покажите что и куда копировать.

[jeka911]

Файл не могу( программно не могу передавать сторонним ресурсам ничего)
да просто с веделенного диапазона на одном листе ни как не могу передать значения на другой(((
просто копированием
Просто с Листа 1 с диапазоном там с B2 по G2 по такой же только на Лист2.То он у меня копирует не с B2 а в B1 а там у меня шапка(

[jeka911]

Разобрался всем спасибо большое)