Consegui:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim KeyCells As Range
Dim L As Integer
Set KeyCells = Range("E17")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing And Range("E17").Value <> "" Then
L = Application.WorksheetFunction.CountA(Sheets("Dados").Range("C:C")) + 1
Sheets("Dados").Range("C" & L).Value = Sheets("MENU").Range("E17").Value
Sheets("MENU").Range("E17").Value = ""
End If
End Sub