マクロのオプションの奇妙な問題

Question

このコードを動作させるのに問題があります。 ActiveCell.Valueと共に（ByValue Target as Range）部分がなくても意図どおりに動作しますが、これらを含めて、エラーが表示されています。

私はこれに応じて他の多くの機能を備えており、修正できることを確認したいと考えています。

ありがとうございます！

Private Sub CT(ByVal Target As Range) 
' 
' CT Macro 
' 

    Sheets("Outbound Tactics").Select 
    If ActiveCell.Value = "Yes" Then 
     ActiveCell.Select 
     Range(Selection, ActiveCell.Offset(0, 23)).Select 
     Selection.Copy 
     Sheets("Completed Tactics").Select 
     ActiveSheet.Range("C4").Select 
     Selection.End(xlDown).Offset(1, 0).Select 
     ActiveSheet.Paste 
     ActiveCell.Offset(1, 0).Select 
     Application.CutCopyMode = False 
     Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove 
     Sheets("Outbound Tactics").Select 
     ActiveCell.Select 
     Range(Selection, ActiveCell.Offset(0, 23)).Select 
     Selection.Delete 
    End If 
End Sub 

PS：私が理解から、最初の部分が連続で呼び出されることなく、マクロの実行を持つためにあり

Answer 1

あなたが実際にあなたのコード内でTargetオブジェクトを使用していないと見て私はあなたがどこかからこれをコピー/ペーストしたと仮定していて、それが実際に何のためにあるのかは実際は分からない。

簡易回答：削除してください。

Private Sub CT() 
'// your code here 
End Sub 

---

拡張回答：あなたのコードに組み込みます。

Private Sub CT(ByVal Target As Range) 

    If Target.Value = "Yes" Then 
     With Sheets("Completed Tactics").Range("C4").End(xlDown).Offset(1, 0) 
      .Resize(1, 24).Value = Target.Resize(1, 24).Value 
      .Offset(1, 0).EntireRow.Insert CopyOrigin:=xlFormatFromLeftOrAbove 
     End With 

     Target.Resize(1, 24).Delete 

    End If 
End Sub