Как скопировать данные с листа на другой лист в пустой строке

Question

Hy Эксперты, у меня есть две таблицы.Я пытаюсь скопировать данные из листа «Лист ввода» в лист «База данных» с помощью этого кода.

Sub CopyInvoiceNo()

    Dim ws As Worksheet, ws1 As Worksheet
    Dim lastrow As Long
    Set ws = Sheets("Input Sheet")
    Set ws1 = Sheets("Database")

    lastrow = ws.Cells(Rows.Count, 4).End(xlUp).Row
    ws.Range("A3:J" & lastrow).Copy
    ws1.Range("B3").PasteSpecial xlPasteValues
    ws1.Activate

End Sub

этот код работает очень хорошо.Но есть проблема.Он перезаписывает данные, когда я нажимаю кнопку 2 раза.

Цель состоит в том, чтобы каждый раз, когда я нажимал кнопку «Вставить», он вставлял данные после первой заполненной строки.Я пытался, но тщетно.Как это могло быть сделано.Заранее спасибо ..

Answer 1

Вы не настраиваете цель операции вставки.

Sub CopyInvoiceNo()

    Dim ws As Worksheet, ws1 As Worksheet
    Dim lastrow As Long
    Set ws = Sheets("Input Sheet")
    Set ws1 = Sheets("Database")

    lastrow = ws.Cells(Rows.Count, 4).End(xlUp).Row
    ws.Range("A3:J" & lastrow).Copy
    ws1.Range("B" & rows.count).end(xlup).offset(1, 0).PasteSpecial xlPasteValues
    ws1.Activate

End Sub