空白行挿入のエクセルマクロの作成をお願いします。

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

Sub insert_row()
    Dim prev
    col_s = 10      ' J列
    col_e = 14      ' N列
    ReDim prev(col_s To col_e)

    last_row = Cells(Rows.Count, 10).End(xlUp).Row
    For c = col_s To col_e
        prev(c) = Cells(last_row, c).Value
    Next

    For r = last_row - 1 To 1 Step -1
        For c = col_s To col_e
            If Cells(r, c).Value <> prev(c) Then
                Rows(r + 1).Insert
                Exit For
            End If
        Next
        For c = col_s To col_e
            prev(c) = Cells(r, c).Value
        Next
    Next
End Sub

対象のシートを選択した状態で、insert_row サブルーチンを実行してください。
J～N列には、空白のセルがない前提です。

Sub insert_row()
    Dim prev
    col_s = 10      ' J列
    col_e = 15      ' O列
    ReDim prev(col_s To col_e)

    last_row = Cells(Rows.Count, 10).End(xlUp).Row
    For c = col_s To col_e
        prev(c) = Cells(last_row, c).Value
    Next

    For r = last_row - 1 To 1 Step -1
        For c = col_s To col_e
            If c <> 13 And Cells(r, c).Value <> prev(c) Then
                Rows(r + 1).Insert
                Exit For
            End If
        Next
        For c = col_s To col_e
            prev(c) = Cells(r, c).Value
        Next
    Next
End Sub