Se entendi corretamente sua questão, você quer que a célula D1 seja incrementado em 1 a cada alteração na célula D6, certo?
Para isso você terá que recorrer ao VBA. Adicione o código abaixo no módulo da planilha onde os dados são inseridos:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D6")) Is Nothing Then
Range("D1").Value = Range("D1").Value + 1
End If
End Sub
Para fazer isso, aperte ALT+F11 para abrir o VBE e então localize a sua planilha de trabalho e dê dois cliques para abrir a página de código dela onde você colará este código.
Abraços.
Postado : 23/03/2015 6:16 am