チェックボックスが選択されているときに行を新しいシートにコピー

Question

チェックボックスを選択すると、すべてのデータを1列（列A：O）から新しいシートにコピーしようとしています。しかし、私が持っているコードは、以前にチェックされた行もすべてコピーしています。私は以前にチェックされたボックスの選択を解除したくない。

Sub CopyRows() 
    Dim LRow As Long, ChkBx As CheckBox, WS2 As Worksheet 
    Set WS2 = Worksheets("Sheet2") 
    LRow = WS2.Range("A" & Rows.Count).End(xlUp).Row 
    For Each ChkBx In ActiveSheet.CheckBoxes 
     If ChkBx.Value = 1 Then 
      LRow = LRow + 1 
      WS2.Cells(LRow, "A").Resize(, 14) = Range("A" & _ 
      ChkBx.TopLeftCell.Row).Resize(, 14).Value 
     End If 
    Next 
End Sub 

Answer 1

以下の変更されたコードをActiveCell.Row（これは最後のチェックボックス行が選択/アクティブであることを前提としています）で試してください。

Sub CopyRows() 
    Dim LRow As Long, r As Long, ChkBx As CheckBox, WS2 As Worksheet 
    Set WS2 = Worksheets("Sheet2") 
    r = ActiveCell.Row 
    WS2.Cells(r, "A").Resize(, 14) = Range("A" & ChkBx.TopLeftCell.Row).Resize(, 14).Value 
End Sub