Problem VBA Code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet
Dim lngLast As Long
Set wks = Worksheets("Info")
lngLast = wks.Range("A65536").End(xlUp).Row + 1
If Target.Count > 1 Then Exit Sub
If Intersect(Range("d8:e23 "), Target) Is Nothing Then Exit Sub
With wks
.Range("A" & lngLast).Value = "Standort LFZ"
.Range("B" & lngLast).Value = Target.Address(0, 0)
.Range("C" & lngLast).Value = mvntWert
.Range("D" & lngLast).Value = Target.Value
.Range("E" & lngLast).Value = VBA.Environ("Username")
.Range("F" & lngLast).Value = Now
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Range("B6:B8,E6:E8"), Target) Is Nothing Then Exit Sub
mvntWert = Target.Value
End Sub