Bedingung für VBA-Code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set SMenge = Application.Intersect(Range("I4:AL2000"), Range(Target.Address))
If SMenge Is Nothing Then Exit Sub
Target.Value = "X"
End Sub

Nun ist es notwendig, dass dieser Code in den gewählten Spalten nur dann läuft, wenn Zeile 2 der entsprechenden Spalte mit einem Wert gefüllt ist.
Bsp. 1: J2 = "" : es sollen keine "X" via Doppelklick in dieser Spalte gesetzt werden können
Bsp. 2: K2 "" : es sollen "X" via Doppelklick in dieser Spalte gesetzt werden können
Hoffe, Ihr könnt mir wieder mal weiterhelfen! :-)
VG u vielen Dank im Voraus,
Micha