下一个可用行和移调

Question

我在 C7:C18 的一张工作表上有数据。此数据需要复制到不同工作表上的下一个可用行。我已经用了好几个小时了，就是无法正常工作。

我已经设法使转置部分正常工作，但不断覆盖同一行。

    Private Sub SaveCust()
    Dim NRow As Long
    Worksheets("CustDB").Select
    NRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
    Worksheets("CustDB").Range("a" & NRow & ":L"& NRow).Value = 
         WorksheetFunction.Transpose(Worksheets("Customer").Range("c7:c18"))

    End Sub

Answer 1

Private Sub SaveCust()
Dim cus, cdb As Worksheet
Dim NRow As Long

Set cus = Worksheets("Customer")
Set cdb = Worksheets("CustDB")

NRow = cdb.Cells(Rows.Count, "A").End(xlUp).Row + 1


cdb.Range("a" & NRow & ":L" & NRow).Value = WorksheetFunction.Transpose(cus.Range("c7:C18").Value)

End Sub