Ручной выбор диапазона данных

[J_i_m_m_y]

Подскажите как сделать в 2003 excel с помощью макросов
в книге на одном листе (DATA) данные.
кол-во данных в столбцах каждый раз разное.
Хочется сделать макрос который предлагает пользователю выделить диапазон с данными (по столбцам) и после выделения вставляет выделенный диапазон на другой лист (Итог) в этой же книге в определенный столбец.

Пытался использовать функцию InputBox. Если выбирать 1 ячейку, я понимаю как это сделать а вот если их много... не понимаю как скопировать.

Sub Ввод_партномеров()
    
    Dim myNum As Range
    Set myNum = Application.InputBox("Выбери партномер", Type:=8)
    If myNum Is Nothing Then Exit Sub

    Dim ro As Range, tto As Long
    tto = 1
    For Each ro In myNum
    MsgBox "партномера: " & myNum.Address

      ro.Copy Destination:=Sheets("Таблица").Cells("A", tto).Address
      
      tto = tto + 1
    Next ro

End Sub

Файл с примером прилагаю.

[The_Prist]

Здравствуйте.
А может проще так?

Sub Ввод_партномеров()
    Dim myNum As Range
    'Выделять весь диапазон данных, а не один столбец(например A7:D14)
    On Error Resume Next
    Set myNum = Application.InputBox("Выбери партномер", Type:=8)
    If myNum Is Nothing Then Exit Sub
    On Error GoTo 0
    With Sheets("Таблица")'Ориентировался на Ваш код(у Вас там Таблица) хотя пишите, что вставить надо в Итог. Сами поправите
        myNum.Copy .Cells("A", .Cells(.Rows.Count, 1).End(xlUp).Row + 1)
    End With
End Sub

[EducatedFool]

Попробуйте так:

Sub Ввод_партномеров()
    Dim myNum As Range
    Set myNum = Application.InputBox("Выбери партномер", Type:=8)
    If myNum Is Nothing Then Exit Sub

    With Worksheets("Итог")
        Intersect(myNum.entirerow, myNum.Worksheet.Range("a:d")).Copy .Range("a" & .Rows.Count).End(xlUp).Offset(1)
        .Activate    ' переходим на лист, куда осуществлялась вставка
    End With
End Sub

Пример в файле:

[J_i_m_m_y]

Да. у меня в фалйе который ковыряю лист таблица называется.
попробовал код
Выдает ошибку в этой строке

        myNum.Copy .Cells("A", .Cells(.Rows.Count, 1).End(xlUp).Row + 1)

[J_i_m_m_y]

EducatedFool
Спасибо. Работает. Кажется и до меня дошло как.

[The_Prist]

Сообщение от J_i_m_m_y

Да. у меня в фалйе который ковыряю лист таблица называется.
попробовал код
Выдает ошибку в этой строке

        myNum.Copy .Cells("A", .Cells(.Rows.Count, 1).End(xlUp).Row + 1)

Наоборот надо. Это я косанул

myNum.Copy .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1,"A")

или так

myNum.Copy .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1)

[J_i_m_m_y]

The_Prist
Спасибо. помогли.