Codeoptimierung

Sub schreibeBewegungsnummer()
Dim isinout As String
isinout = Tabelle2.Range("N1").Value 'der Name der Sortentabelle
If Tabelle2.Range("N1").Text = "" Then
Exit Sub
Else
Sheets(isinout).Activate
End If
ActiveCell.Value = Tabelle2.Range("M1").Value 'die Bewegungsnummer in die Zelle
If ActiveCell.Offset.Address = ("$K$2") Then 'bei Ende ist, fang von vorne an
ActiveCell.Offset(0, -9).Select
Else
ActiveCell.Offset(0, 1).Select 'sonst gehe nur eine zelle weiter
End If
Tabelle2.Range("N1").Value = "" 'setze Eintrag für Sortenauswahl auf null
End 

Sub