последняя ячейка СТРОКИ с данными

[ruvster]

Всем привет
Для копирования строки из одной книги в другую я пишу:

Workbooks("1.xls").Worksheets(1).Range("b3:z3").Copy _
Workbooks("2.xls").Worksheets(1).Range("b4")

И здесь меня все устраивает. Разьве только если увеличатся данные в таблице, придется переписывать код. Как мне написать

Workbooks("1.xls").Worksheets(1).Range("b3:Д последней ячейки строки с данными").Copy _
Workbooks("2.xls").Worksheets(1).Range("b4")
?
И еще вопрос.
Это я копирую строку с первой страницы в другую книгу, затем я копирую ту же строку, но со второй страницы ниже скопированного ранее. т.е. пишу:

Workbooks("1.xls").Worksheets(1).Range("b3:z3").Copy _
Workbooks("2.xls").Worksheets(1).Range("b4")
Workbooks("1.xls").Worksheets(2).Range("b3:z3").Copy _
Workbooks("2.xls").Worksheets(1).Range("b5")
Workbooks("1.xls").Worksheets(3).Range("b3:z3").Copy _
Workbooks("2.xls").Worksheets(1).Range("b6")
и так 12 страниц.
Наверное это можно сделать по-проще?
Спасибо.

[lord0n]

И здесь меня все устраивает. Разьве только если увеличатся данные в таблице, придется переписывать код. Как мне написать

Workbooks("1.xls").Worksheets(1).Range("b3:Д последней ячейки строки с данными").Copy _
Workbooks("2.xls").Worksheets(1).Range("b4")

Selection.End(xlDown).Select - переход в самое последнию заполненную ячейку

насчет второго вопроса - не понял

[ruvster]

Видимо я не понятно задал вопросы.
1. Мне нужен диапазон ячеек, например ("a1:Пследняя ячейка с данными в строке a")
2. Ну, второе вроде все понятно.
Спасибо

[Димитрий]

Что-то типа:
Dim i As Long, j As Long, Max As Long
Max = Workbooks("1.xls").Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To Max
For j = 1 To 12
Workbooks("1.xls").Worksheets(j).Range(Workbooks("1.xls").Worksheets(j).Cells(i, 2), Workbooks("1.xls").Worksheets(j).Cells(i, 26)).Copy _
Workbooks("2.xls").Worksheets(1).Cells(3 + j, 2)
Next
Next

[alibek]

SpecialCell(xlLastCell)

[batiq]

SpecialCell(xlLastCell)

Как используется?.