Assistance with Sorting Across Multiple Worksheets

Private Sub Worksheet_Activate()
  With sheets("Bugdet & attendance")
    .range("A3:B35")=Sheets("Event Schedule").Range("B3:C35").Value
    .range("C3:C35")=Sheets("Event Schedule").Range("J3:J35").Value
    .range("I3:I35")= Sheets("POC Actual Events").Range("E2:E35").Value
    .Range("A3:y35").Sort Range("A3")
  End with
End Sub