Private Sub Worksheet_Change(ByVal Target As Range)
Dim k&
k = Range("B1").Value + 3
If Range("B1").Value = "" Then
Exit Sub
Else
If Not Intersect(Target, Range("B1")) Is Nothing Then
Range("B" & k).Value = Range("B" & k).Value + 1
End If
End If
End Sub