VBA-次の空の行にデータを追加

Question

次のマクロを書いて、あるワークシートから別のワークシートにデータを転送しました。私は、空の行に転送され、新しいデータを望むが、それは以下のコードを試してみてください行

に

Worksheets("sheet1").Select 
    Worksheets("sheet1").Range("a1").Select 
    RowCount = Worksheets("sheet1").Range("A1").CurrentRegion.Rows.Count 
    With Worksheets("Sheet1").Range("A1") 
    .Offset(RowCount, 0) = workOrderDescription 

Answer 1

を同じに上書き保つ：

With Workbooks("Your_WorkbookmName").Worksheets("sheet1") 
    RowCount = .Cells(.Rows.Count, "A").End(xlUp).Row ' <-- get last row in column "A" 
    .Range("A" & RowCount + 1) = workOrderDescription 
End With