連続して固まっているデータ毎に、指定のキーワードが文字列に含まれていたら、上に1セル、右に6セル移動したM・N列のセルそれぞれに、★マーク（M列）、●マーク（N列）を入れたい。

G列が空白区切りでひとつのブロックとして考えて、その中で最初に「ピラミッド」を見つけたらマークをつければ良いんですよね？
42～83行目（②）のブロックで、45行目と50行目だけにピラミッドの文字が含まれていて、その他の行にはピラミッドの文字はない。
そういう場合には、44行目の M・N列だけに ★・● を打つ（49行目には打たない）。


こんな感じでどうでしょう。

Function is_blank_cell(c)
    is_blank_cell = IsEmpty(c) Or c.Value = ""
End Function

Sub mark_first_word()
    Const M_SEARCH_WORD = 1
    Const M_NEXT_BLOCK = 2

    target_col = 7      ' G列
    last_row = Cells(Rows.Count, target_col).End(xlUp).Row
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "ピラミッド"       ' 検索する単語

    Range(Cells(2, 13), Cells(last_row, 14)).Clear

    Mode = M_SEARCH_WORD

    For r = 5 To last_row
        Set c = Cells(r, target_col)
        If Mode = M_SEARCH_WORD Then
            If is_blank_cell(c) Then
                Mode = M_NEXT_BLOCK
            End If
        ElseIf Mode = M_NEXT_BLOCK Then
            If Not is_blank_cell(c) Then
                Mode = M_SEARCH_WORD
            End If
        End If
        If Mode = M_SEARCH_WORD Then
            If re.test(c.Value) Then
                Cells(r - 1, target_col + 6).Value = "★"
                Cells(r - 1, target_col + 7).Value = "●"
            End If
        End If
        DoEvents
    Next
End Sub

標準モジュールに、上記のコードを貼り付けて、mark_first_word サブルーチンを実行してください。

でもすみません、データの固まりの、一番上に“ピラミッド”とある文字列だけを対象としたいのですが。

ブロックの先頭の行の G列にピラミッドが含まれる場合に、★と●ですか。

これではどうでしょう？

Function is_blank_cell(c)
    is_blank_cell = IsEmpty(c) Or c.Value = ""
End Function

Sub mark_first_word()
    Const M_CHECK_WORD = 1
    Const M_NEXT_BLANK = 2
    Const M_NEXT_BLOCK = 3

    target_col = 7      ' G列
    last_row = Cells(Rows.Count, target_col).End(xlUp).Row
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "ピラミッド"       ' 検索する単語

    Range(Cells(2, 13), Cells(last_row, 14)).Clear

    Mode = M_CHECK_WORD

    For r = 5 To last_row
        Set c = Cells(r, target_col)
        If Mode = M_NEXT_BLANK Then
            If is_blank_cell(c) Then
                Mode = M_NEXT_BLOCK
            End If
        ElseIf Mode = M_NEXT_BLOCK Then
            If Not is_blank_cell(c) Then
                Mode = M_CHECK_WORD
            End If
        End If
        If Mode = M_CHECK_WORD Then
            If re.test(c.Value) Then
                Cells(r - 1, target_col + 6).Value = "★"
                Cells(r - 1, target_col + 7).Value = "●"
            End If
            Mode = M_NEXT_BLANK
        End If
        DoEvents
    Next
End Sub