Private Sub Worksheet_Change(ByVal R As Range)
Dim i As Long
Application.ScreenUpdating = 0
If R.Address = "$E$14" And [E14] <> "" and R.count=1 Then
For i = 3 To 65536
If Cells(i, 13) = "" Then
Cells(i, 13) = Date
Cells(i, 14) = [E6] : Cells(i - 1, 18) = [E7]
Cells(i, 16) = [E8] :Cells(i, 15) = [E9]
Cells(i - 1, 19) = [E10] : Cells(i, 17) = [E11]
Cells(i - 1, 20) = [E12] : Cells(i, 21) = [E14]
Exit For
End If
Next
End If
[E6].Select
End Sub