Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$A$1" Then ActiveCell = Sheets("CTS").Range("E" & Rows.Count).End(xlUp)
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$A$1" Then Exit Sub
Application.ScreenUpdating = False
Cancel = True
Target(2).Insert xlDown
Target.AutoFill Target.Resize(2)
Target = Target(2)
Target(2).Delete xlUp
End Sub