Excel Código de VBA para apagar linhas

[La_Revancha]

Bom dia Galera!

Preciso substituir esse código na minha planilha, ele apaga as células a baixo de D16, caso D16 seja alterado,

só que eu preciso que apague 15 células abaixo de D16,como eu só sei usar "IF" xD, fiz esse código gigante,

e a planilha da um loading chatinho quando executa essa ação, alguém pode me ajudar a simplifica-lo:

Desde já Obrigado!

Worksheet                           Change

Private Sub Worksheet_Change(ByVal Target As Range)

 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(1, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(2, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(3, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(4, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(5, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(6, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(7, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(8, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(9, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(10, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(11, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(12, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(13, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(14, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(15, 0).Value = ""

[Visitante]

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$D$16" Then [D17:D31] = ""
End Sub

 

[La_Revancha]

 osvaldomp como sempre salvando nas horas de dificuldade, mais um código pra lista que aprendi com você! Muito Obrigado!