回答編集履歴

  ・Application.EnableEvents = False 'イベント抑制開始

  ・Application.EnableEvents = True 'イベント抑制終了

 

  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

  ```

 

  それから余談ですが、ここでActivecellを使うのはナンセンスです。

  Changeイベントの場合、変更になったセルについてはTargetを使用するのが普通です。