如何避免清除标题

Question

我有一个清除标头的代码，这是我不想发生的事情。

仅应清除标题下的数据

我的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Target.Address(0, 0) = "F5" Then
      With Sheets("sheet2")
         .Range("I2", .Range("I" & Rows.Count).End(xlUp).Offset(, 1)).ClearContents
         .Range("I2").Resize(1 * Target, 1).Value = .Range("E8").Value
         .Range("J2").Resize(1 * Target, 1).Value = .Range("E12").Value
      End With
End Sub

我的输出： 在工作表1 =>中的单元格=>“ F5”

中输入值

我已突出显示不应为空或未清除为红色的单元格，如图所示

我在I和J中的标头是 I => NOTE 1和J => NOTE 2