>>416
イベント操作はok
copyの元と先はどうでせう?

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range(Cells(3, 2), Cells(5, 2))) Is Nothing Then
Exit Sub

Else
x = Cells(2, 4)
Worksheets("x").Range(Cells(x, 3), Cells(x + 5, 24)).Copy Worksheets("sum").Cells(8, 2)
End If

End Sub