For Each sh In Worksheets
If IsNumeric(sh.Name) Then
If sh.Range("L18").Value > 0 Or sh.Range("K16").Value < 300 Then
Dl1 = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("a" & Dl1) = sh.Range("A2")
.Hyperlinks.Add .Range("a" & Dl1), "", sh.Name & "!A2"
.Range("b" & Dl1) = sh.Range("B2")
.Range("c" & Dl1) = sh.Range("L15")
.Range("d" & Dl1) = sh.Range("L17")
.Range("e" & Dl1) = sh.Range("L18")
.Range("f" & Dl1) = sh.Range("K16")
End If
End If
Next sh