Spaltenüberwachung mit Datumausgabe

Guten Morgen und einen schönen Feiertag,
ich habe schon gesucht und bin so weit gekommen. Jetzt weiß ich nicht wie ich den Code abändern muss.
Mein Problem ist folgendes, ich möchte die letzte Änderung in einem Spaltenbereich überwachen (R2 bis R150). In R152 soll dann das Datum mit Uhrzeit der letzten Änderung stehen.
Das funktioniert mit dem folgenden Code ganz gut.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Application.Intersect(Target, Sh.Range("R2:R150")) Is Nothing Then
Select Case Sh.Name
Case Else
On Error GoTo F
Application.EnableEvents = False
Sh.Range("R152") = Now    ' Zelle anpassen
F:              Application.EnableEvents = True
End Select
End If
End Sub