hi

can some one check this code i need to copy only value but the following code copy formula which i don't need. i only need value to be copy paste
also i need to modify to check value in column "A" in the "T_Mth" sh. if value in column find than do nothing else copy data from "summary" sh to "M_Th" sh.
thanks for you time it's appreciated.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim wss As Worksheet
    Dim wst As Worksheet

    Set wss = ThisWorkbook.Worksheets("Summary")
    Set wst = ThisWorkbook.Worksheets("T_Mth")    
If Target.Count > 1 Then Exit Sub
    If Target.Address <> "$A$7" Then GoTo n1    'Exit Sub

     
    If MsgBox("Send Data to All Data Sheet?", vbYesNo) = vbYes Then
        Cancel = True
        Range(Cells(Target.Row, "A"), Cells(Target.Row, "N")).Copy _
                Sheets("T_Mth").Range("a3").Offset(0, 0)    '.PasteSpecial.Offset(0, 0) 'xlValues  ' & Rows.Count).End(xlUp).Offset(1, 0)
    End If
n1:
    If Target.Count > 1 Then Exit Sub
    If Target.Address <> "$A$8" Then Exit Sub
    If MsgBox("Send Data to All Data Sheet?", vbYesNo) = vbYes Then
        Cancel = True

        Range(Cells(Target.Row, "A"), Cells(Target.Row, "M")).Copy _
                Sheets("T_Mth").Rows("10:15").EntireRow.Insert

        ThisWorkbook.Worksheets("T_Mth").Activate

    End If
    Application.CutCopyMode = False
End Sub