Option Explicit
Dim Cel
Private Sub Worksheet_Change(ByVal Target As Range)
For Each Cel In Target
With Cel
If (.Column = 1 Or .Column = 2) Then
With .EntireRow
If .Cells(1, 1) <> "" And Cells(1, 2) <> "" Then .Cells(1, 3) = Date
End With
End If
End With
Next Cel
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 200
If Range("A" & i).Value <> "" And Range("B" & i).Value <> "" Then
Range("C" & i) = Date
End If
Next i
End Sub