■

以下は、VBAを使用してこのタスクを実行するためのサンプルコードです。

```vb
Sub FillData()

Dim rng As Range
Dim cell As Range
Dim count As Integer
Dim lastRow As Integer

' データの範囲を指定します
Set rng = Range("C3:AG3")

' データが満たされているか確認します
count = WorksheetFunction.CountA(rng)

' データが連続して4つ以下の場合に処理を実行します
If count <= 4 Then

' 最終行の番号を取得します
lastRow = rng.Rows.Count + rng.Row - 1

' データが入っていないセルに○を追加します
For Each cell In rng
If cell.Value = "" Then
cell.Value = "○"
End If
Next cell

' データが満たされた後ろのセルには○を削除します
For Each cell In Range(Cells(rng.Row, count + 3), Cells(rng.Row, lastRow))
If cell.Value = "○" Then
cell.ClearContents
End If
Next cell

End If

End Sub
```

上記のコードをVBAエディタに貼り付け、実行すると、指定された範囲（C3〜AG3）にデータがランダムに追加されます。ただし、データが連続して4つ以上の場合、またはデータがすでに満たされている場合には、セルに追加の「○」は入りません。