Gehe zu leerzelle "j" / Vba

Private Sub dav()
' dav Makro
If MsgBox("Soll duckt werden?", vbYesNo + vbQuestion, "Paketliste") = vbYes Then
Druck:
Sheets("Tabelle4").Select
Sheets("Druckversion Endlos").Select
With ActiveSheet
.Unprotect "Name"
Range("B6").Select
ActiveSheet.Range("$A$7:$l$2708").AutoFilter Field:=1, Criteria1:=""
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Druckversion Endlos").Select
.Protect "Name", UserInterfaceOnly:=True
.EnableAutoFilter = True
Sheets("Tabelle4").Select
If MsgBox("Soll der Druck wiederholt werden?", vbYesNo + vbDefaultButton2) = vbYes Then  _
GoTo Druck
Columns("y:y").Select
Selection.ClearContents
? Gehe zur letzten leeren Zeile in Spalte "J" ? _
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst        - vieleicht hier etwas ändern ? _
?End With
Else
MsgBox "Der Druckauftrag wurde von Ihnen abgebrochen"
End If
End Sub