VBA stopped working

Change the value in to row

Sub copy_paste1()
Dim i As Long, y As Long, z As Long
y = Sheets("events exp up to 2 months").Range("T" & Rows.Count).End(3).Row
For i = 9 To y
Sheets("P_L events up to 2 months").Range("B" & Rows.Count).End(3)(2).Row = Sheets("events exp up to 2 months").Range("R" & i).Value
Sheets("P_L events up to 2 months").Range("B" & Rows.Count).End(3)(2).Row = Sheets("events exp up to 2 months").Range("R" & i).Value
Sheets("P_L events up to 2 months").Range("C" & Rows.Count).End(3)(2).Row = Sheets("events exp up to 2 months").Range("S" & i).Value
Sheets("P_L events up to 2 months").Range("C" & Rows.Count).End(3)(2).Row = Sheets("events exp up to 2 months").Range("S" & i).Value
Sheets("P_L events up to 2 months").Range("D" & Rows.Count).End(3)(2).Row = Sheets("events exp up to 2 months").Range("T" & i).Value
Sheets("P_L events up to 2 months").Range("D" & Rows.Count).End(3)(2).Row = Sheets("events exp up to 2 months").Range("T" & i).Value
Next i
z = Sheets("P_L events up to 2 months").Range("B" & Rows.Count).End(3).Row
Sheets("P_L events up to 2 months").Range(Cells(z, "B"), Cells(z, "D")).Clear
End Sub