Private Sub Worksheet_Change(ByVal Target As Range)
     
    For Each cell In Target  
       If Not Intersect(cell, Range("E2:E100")) Is Nothing Then  
            With cell.Offset(0, 1)      
               .Value = Format(Now, "hh:nn")
               .EntireColumn.AutoFit  
            End With
       End If
    Next cell
End Sub
 

If Not Intersect(cell, Range("E2:E100;H2:H100")) Is Nothing Then