How to paste range of cells in the next empty table row?

Question

I would like to copy a range of cells from one table to another on a different sheet, but when it pastes to the new table it overrides existing information.

Here is the code I am currently using:

Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim db As Worksheet

Dim lCopy As Long
Dim lDest As Long

Dim lCopy2 As Long
Dim lDest2 As Long

Set db = Sheet1

db.range("B6:F1000").ClearContents

  Sheets("Create_kit").range("B4").Value = Sheets("Update_kit").range("B3").Value
  Sheets("Create_kit").range("C4").Value = Sheets("Update_kit").range("C3").Value

  Set wsCopy = Worksheets("Update_kit") 'Copies table
  Set wsDest = Worksheets("Create_kit") 'Pastes table

  lCopy = wsCopy.Cells(wsCopy.Rows.count, "B").End(xlUp).Row
  lDest = wsDest.Cells(wsDest.Rows.count, "B").End(xlUp).Offset(1).Row

  'Copies any cell within the table
  wsCopy.range("B5:F" & lCopy).Copy
  wsDest.range("B" & lDest).PasteSpecial xlPasteValues

I tried changing Offset(1) to Offset(0) but I did not notice any changes after running the code.

I would like to have the new data pasted in the next empty row in column B in the new table. I have tried to look at other asked questions but I have been unsuccessful in finding a solution.

Any help is appreciated!

Answer 1

您能否确认要复制/粘贴的B列中没有空单元格，因为您使用的函数“ wsCopy.Cells（wsCopy.Rows.count，“ B”）。End（xlUp）.Row“可以找到最后一行，中间没有空单元格。