vba - 次の行に値を入力する

Question

色、数量、期日をいつでもテーブルに入力するボタンがあります。このコードは正常に機能しますが、ボタンがクリックされるたびに同じ行を上書きするのではなく、下の次の行に入力したいと思います。

Sub add()

Dim Colour As Integer
Dim Quantity As Integer
Dim Duedate As Date

Colour = Range("F7").Value
Quantity = Range("H7").Value
Duedate = Range("J7").Value

Range("B14").Value = Colour
Range("C14").Value = Quantity
Range("D14").Value = Duedate

End Sub

Answer 1

これでうまくいくはずです：

Sub add()
    With ActiveSheet.Cells(ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2)
        .Value = ActiveSheet.Range("F7").Value
        .Offset(0, 1).Value = ActiveSheet.Range("H7").Value
        .Offset(0, 2).Value = ActiveSheet.Range("J7").Value
    End With
End Sub