Vba 插入到下一个空行

我试图在下一个可用的行中插入数据，但是它总是漏掉很多空白行

我的代码如下：

Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim copySheet As Worksheet
    Dim pasteSheet As Worksheet

    Set copySheet = Worksheets("Recipe creater")
    Set pasteSheet = Worksheets("Recipes")

    Call Pasterecipedetails

    copySheet.Range("b6:g6", Range("b6:g6").End(xlDown)).Copy
    pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub



Sub Pasterecipedetails()

    Application.ScreenUpdating = False
    Dim copySheet As Worksheet
    Dim pasteSheet As Worksheet

    Set copySheet = Worksheets("Recipe creater")
    Set pasteSheet = Worksheets("Recipes")

    copySheet.Range("c2:e2").Copy
    pasteSheet.Cells(Rows.Count, 11).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Application.ScreenUpdating = True

End Sub

谢谢

试着这样做：

copySheet.UsedRange.Copy
nextRow = pasteSheet.UsedRange.SpecialCells(xlCellTypeLastCell).row + 1
pasteSheet.Cells(nextRow, 1).PasteSpecial (xlPasteValues)

试着这样做：

copySheet.UsedRange.Copy
nextRow = pasteSheet.UsedRange.SpecialCells(xlCellTypeLastCell).row + 1
pasteSheet.Cells(nextRow, 1).PasteSpecial (xlPasteValues)

---

这将跳过以前使用过的空单元格。将数据输入A1、A2、A3并删除它，然后运行代码将跳到A4。使用.cells.SpecialCells（xlCellTypeLastCell）.row时是这样，但如果使用usedrange.SpecialCells。。。。。我们得到了最后一行的使用范围，我试过，如果空单元格以前被使用过，它会跳过空单元格。将数据输入A1、A2、A3并删除它，然后运行代码将跳到A4。使用.cells.SpecialCells（xlCellTypeLastCell）.row时是这样，但如果使用usedrange.SpecialCells。。。。。我们拿到了最后一排二手车我试过了