Copia dal foglio 1 e incolla sotto la cella selezionata in uno dei fogli 2, 3, 4

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim mFrom As Range, mTo As Range
If Target.Value <> "INCOLLA" Then Exit Sub
r1 = Target.Offset(1).Address
r2 = Target.Offset(15, 3).Address
Set mFrom = Worksheets("Foglio1").Range("B7:E21")
Set mTo = Range(r1, r2)
mFrom.Copy Destination:=mTo
Application.CutCopyMode= False
Cancel = True   
End Sub