копировать до последней строки из указанного c номера строки со ссылкой на ячейку

Question

У меня есть код ниже, где мне нужно, чтобы он работал, как показано ниже.

1. копировать со строки 10 до последней строки со значением.
2. последняя строка будет со ссылкой на столбец N, начиная с ячейки N10 ..

какие-либо предложения от команды SO?

    wbSource.Sheets(SITE_TEMPLATE).Rows(10).EntireRow.Copy wbMaster.Sheets(SITE_TEMPLATE).Range("A" & insertRow2)
    insertRow2 = insertRow2 + 1

Answer 1

Попробуйте это:

Sub test()

    Dim LastRow As Long

    With Workbooks("wbSource").Worksheets("SITE_TEMPLATE")

        LastRow = .Cells(.Rows.Count, "N").End(xlUp).Row

        .Rows(10 & ":" & LastRow).EntireRow.Copy wbMaster.Sheets(SITE_TEMPLATE).Range("A" & insertRow2)

        insertRow2 = insertRow2 + 1

    End With

End Sub