Da's er eentje die je niet meer goed krijgt met een formule.
Zet deze code eens in je Visual Basic Editor bij het juiste blad :
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Columns(5), Target) Is Nothing Then
    Cells(Target.Row, 4) = Date
End If

End Sub
Dit zal werken voor alle rijen. Als dat niet de bedoeling is moet Columns(5) door de gewenste range vervangen worden.

Het zou natuurlijk ook helpen als we niet zouden moeten proberen om zelf je vraag verder aan te vullen 
Bedoel je nu dat, wanneer er een cel wordt ingevuld ergens in de kolommen 5, 6 of 7, dat dan de datum altijd in kolom 4 moet komen ?
Bedenk daarbij dat, als er op een bepaalde rij eerder al in één van die 3 kolommen iets was gezet, en later iets in dezelfde rij in één van de andere kolommen, dat de eerste datum dan wordt overschreven !

Dan moet er enkel één regel in de vorige code een beetje worden aangepast :
If Not Intersect(Columns("E:G"), Target) Is Nothing Then