sergeyvgПеретаскивание любой непустой ячейки в последнюю свободную в колонке A. Правда отключается переход в режим редактирования, но его можно включить по <F2>.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim LstRow As Long
If Not IsEmpty(Target) Then
LstRow = Range("A65536").End(xlUp).Row
If LstRow <> 1 Then LstRow = LstRow + 1
Range("A" & LstRow).Value = Target.Value
End If
Cancel = True
End Sub

Попробовал. Ошибки не выдается, но и в конец таблицы курсор не перемещается.