【VBA】複数の指定セルに値が挿入できない

Question

選択したセルが特定の文字だった場合、複数のセルにそれぞれ違う値を挿入しようとしています、

ですが、実行すると、エラーはなく応答なしにも習うにExcelが終了してしまいます。
他にもRangeやOffsetを使用してみましたが、結果は変わりません。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Long
    r = ActiveCell.Row
   
    If ActiveCell = "" Then
        Cells(r, 8).Value = "H列" & r & "です"
        Cells(r, 9).Value = "I列" & r & "です"
        Cells(r, 10).Value = "J列" & r & "です"
        Cells(r, 11).Value = "K列" & r & "です"
       
    End If
End Sub

エラーがないため、対応策がなかなかヒットせず....。

なぜ、うまくいかないのでしょうか？