我如何复制/粘贴/清除值

Question

这是我正在使用的东西，但无法弄清楚我要去哪里。

我一直在审查众多帖子，但找不到答案。

Sub copypasteclearDATA()
Sheet6.Select
Dim Name_ As String
Dim Eval As Long
Dim lastRow As Long

lastRow = Sheet6.Cells(Rows.Count, 1).End(xlUp).Row
For i = 23 To 35
    If Cells(i, 32) = "True" Then
        Name = Sheet6.Cells(i, 1)
        Eval = Sheet6.Cells(i, 29)
        Sheet8.Activate
        eRow = Sheet8.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        Sheet8.Cells(eRow, 1) = Cells(i, 1)
        Sheet8.Cells(eRow, 2) = Cells(i, 2)
        Sheet6.Activate
     End If
Next i
End If

此处的公式可删除复制到sheet1的数据，而不会删除AC列中的公式。 结束

我想基本上复制工作表1上的2个单元格并将它们粘贴到工作表2上，然后清除工作表1上保持True不变的整个行。