prevent active cell into cells contains formulas for two columns

[abdo meghari]

Hello
I need preventing to activate cell contains formulas in specific rows . the formulas are existed in columns A,G but should start from row25
so I want just activate in cells from B25:F and ignores column G25 to lastrow and A25 to lastrow
here is the code I need modifying .

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With ActiveCell.EntireRow
      .Copy
      .Offset(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
       On Error Resume Next
      .Offset(1).SpecialCells(xlCellTypeConstants).Value = ""
      Application.CutCopyMode = False
      On Error GoTo 0
   End With
End Sub

thanks