Gente eu tenho a seguinte linguagem

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 4 Then
  Target.Offset(0, 4).Value = Target.Offset(0, 4).Value + Target.Value
ElseIf Target.Column = 3 Then
Target.Offset(0, 4).Value = Date
  Range("G1").Value = Date
End If
End Sub

Eu preciso so de ACRESCENTAR MAIS UM COMANDO que quando eu inserir valores na coluna D ele insira a data da alteracao na célula P1. Igual como ele ja faz na G1 sendo que com a coluna C. Preciso só que acrescente mais esse comando. Alguem pode me ajudar?