Sub aller()
Dim Plg As Range
Dim DerCol As Long
DerCol = Cells(8, Columns.Count).End(xlToLeft).Column
Set Plg = Range(Cells(8, 15), Cells(8, DerCol))
If Not IsError(Application.Match(CLng(Range("J1").Value), Plg, 0)) Then
Application.Goto Cells(8, Application.Match(CLng(Range("J1").Value), Plg, 0) + 14), True
End If
End Sub