Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim derlig As Long, i As Long
Application.ScreenUpdating = False
derlig = Range("a" & Rows.Count).End(xlUp).Row
For i = 2 To Sheets.Count
Range("a1:m" & derlig).Copy Sheets(i).Range("a1")
Next i
Application.Goto [A1]
Cancel = True
End Sub