Формат строки

[judge_arm]

У меня код какой копирует таблицу предыдущую и вставляет ее после этой таблицы. Мне нужно в таблице когда я ее вставил изменить высоту строки, это первая строка таблицы. Помогите с кодом...

Sub Poisk()
Dim iRow As Integer
Dim iCol As Integer
iRow = 12
iCol = 1
Do
iRow = iRow + 1
Loop Until IsEmpty(Cells(iRow, iCol))
Set HelloRange = Range(Cells(iRow - 1, iCol), Cells(iRow - 7, iCol + 2))
HelloRange.Select
Selection.Copy
Cells(iRow, iCol).Select
ActiveSheet.Paste
End Sub

[SAS888]

Можно использовать следующий код:

Sub Poisk()
    Dim i As Long: i = [A65536].End(xlUp).Row: Application.ScreenUpdating = False
    Range(Cells(i - 6, 1), Cells(i, 3)).Copy Cells(i + 1, 1): Rows(i + 1).RowHeight = 25
End Sub

[judge_arm]

Очень интересный способ! Все получилось, как раз что нужно! Благодарю!