Letzte Zelle finden mit Start Zelle

Sub Komm_Schreiben()
Dim x As Integer
Dim i As Integer
Dim user
'****       in Kommi Schreiben                    ****
With Sheets("Pivot")
For i = 10 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(i, 1) = "JA" Then 'Schauen ob ein oder mehrere Artikel versendet werden   _
_
sollen
Sheets("Kommisionierung").Select 'zum Tabellenblatt wechseln
x = Range("R65536").End(xlUp).Row + 1 'Letzte frei Zelle finden
Sheets("Kommisionierung").Cells(x, 18).Value = Sheets("Pivot").Cells(i, 3). _
Value 'Bezeichnung übertragen
Sheets("Kommisionierung").Cells(x, 14).Value = Sheets("Pivot").Cells(i, 2). _
Value   'FBE nummer übertragen
Sheets("Kommisionierung").Cells(x + 1, 19).Value = Sheets("Pivot").Cells(i, 4).  _
_
Value 'Typ übertragen
user = InputBox("Bitte Liefermenge Prüfen!" & Chr(13) & "" & Chr(13) & .Cells(i, _
_
2) & Chr(13) & "" & Chr(13) & .Cells(i, 3) & Chr(13) & .Cells(i, 4), "Maschinenanzahl", .Cells( _
i, 7).Value)
If user  "" Then
Sheets("Kommisionierung").Cells(x, 10).Value = user 'menge
End If
Else
'MsgBox "keine Daten übertragen"
End If
Next i
Sheets("Kommisionierung").PageSetup.PrintArea = ("$A$1:$AM" & x + 1)
Call zeilenumbruch
End With
End Sub

So mein Problem:
Es such ja in der Spalte R die letzte frei Zelle und schreibt dort rein.
Ich möchte aber da im Kopfbereichs des Dokument feste elemente stehen erst ab zeile 16 beginnen  _
_
zu schreiben. aktuell ist es ja so das er ab zeile 1 reinschreibt.
habe mir insofern geholfen das ich die zeilen mit irgenwelchen Zeichen fülle damit sie  _
scheinbar voll sind und somit erst ab Zeile 16 geschrieben wird.