前回の続きの話ですね？

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim i As Range
    
    If Target.Count = 1 Then
        Cancel = True
        
        Set i = Target
        
        i.Offset(0, 1).Resize(2) = [{1;"あ"}]
        
        With Me.Shapes.AddShape(msoShapeOval, i.Left, i.Top, i.Height, i.Height)
            .Fill.Visible = False
            .Line.ForeColor.RGB = RGB(0, 0, 255)
        End With
    End If
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

○を入れるセルはA列限定とします。

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim i As Range
    
    Set i = Intersect(Columns("A"), Target) '右クリックは、A列限定とする
    
    If Not i Is Nothing Then
        If i.Cells.Count = 1 Then
            Cancel = True
            
            'データ入力セルの書式を文字列に設定する
            Range("D1,F1").Offset(0, i.Row - 1).NumberFormatLocal = "@"
            Cells(i.Row, "D") = "4.0"
            Cells(i.Row, "F") = "7:00〜12:00"
            
            With Me.Shapes.AddShape(msoShapeOval, i.Left, i.Top, i.Height, i.Height)
                .Fill.Visible = False
                .Line.ForeColor.RGB = RGB(0, 0, 255)
            End With
        End If
    End If
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

＞このコードは前回と同様にシート名の所で右クリックでコードの表示からでいいのでしょうか？

同じです。

と言うか、前回のは消去してください。(前回のも併存させる必要があるなら、また話が違ってきますけど。）