Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'change Range to suit your needs
If Intersect(Target, Range("A1")) Then Range("L11:S57").Select
End Sub
行全体のタイプが必要な場合列全体の場合は、次のようRows("11:57").Select
に入力しますColumns("L:S").Select