Hallo

unter der Vorrausetzung, dass es sich nicht um eine "intelligente Tabelle" handelt...

Sub Uhrzeit_Abfahrt()
    'Fügt die Abfahrtszeit in die letzte Zeile der Tätigkeiten ein
    Dim letzte_Zeile As Integer
    letzte_Zeile = ActiveSheet.Cells(31, 2).End(xlUp).Row
    Cells(letzte_Zeile, 10).Value = Cells(6, 5).Value
End Sub

mfg