掲示のコードは、
.Value
「値」を代入することになります。
ところで
Offset関数の使い方をキチンと理解したほうがよいですよ
Offset(行,列)です。
掲示のコードが行と列が間違っています。
ActiveCellとTargetは同じなので
Targetを使いましょう。
↓を参考にしてください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim shiki As String
With Target
shiki = .Offset(0, -1).Address(0, 0)
shiki = shiki & "+" & .Offset(-2, 0).Address(0, 0)
shiki = shiki & "+" & .Offset(-5, 3).Address(0, 0)
.Formula = "=" & shiki
End With
Cancel = True
End Sub