VBA按单元格将单元格从一张纸添加到另一张纸

Question

我想创建一个按钮，按照添加的时间将单元格从一张纸添加到另一张纸。在图像中我展示了我想做的例子。 Adding first cells

到目前为止我得到了这个

Sub CopyBasedonSheet1()
Dim i As Integer
Dim j As Integer
Sheet1LastRow = Worksheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row

i = 1
For j = 1 To Sheet1LastRow
    If Worksheets("Sheet1").Cells(j, 2).Value = "a" Then
        Worksheets("Sheet2").Cells(i, 1).Value = Worksheets("Sheet1").Cells(j, 1).Value
        Worksheets("Sheet2").Cells(i, 2).Value = Worksheets("Sheet1").Cells(j, 2).Value
        i = i + 1
    End If
Next j
End Sub

但是当我添加下一个单元格并再次按下按钮时，它将覆盖表单2中的整个单元格。我想这样做：adding next cell 你能救我吗？