Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Val As Long
Dim k As Integer
For Each Cell In Range("G7:G235")
If Not Cell.Offset(0, -2).Value = "" Then
Cell.Value = ""
End If
For k = Len(Cell.Offset(0, -1)) To 1 Step -1
If IsNumeric(Mid(Cell.Offset(0, -1), k, 1)) Then Val = k: Exit For
Next k
If Val = 0 Then
Cell.Value = ""
End If
Val = 0
Next Cell
End Sub