Problem with timestamp code

Try this

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng    As Range
    Dim R      As Long
    If Target.Column = 1 Then
        R = Target.Row
        Set rng = Range(Cells(R, 2), Cells(R, 10))
        If Application.WorksheetFunction.CountA(rng) > 0 And IsEmpty(Target) Then Target.Value = Now
    End If
    Sheet1.Unprotect
End Sub