VBA run-time error 9

Hi. I attached my workbook. In spreadsheet P_L events up to 2 months I use the following macro which I have use it before and it worked:

Sub copy_paste_events_P_L_events_2_months()
Dim i As Long, y 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).Value = 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).Value = 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).Value = 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).Value = 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).Value = 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).Value = Sheets("events exp up to 2 months").Range("T" & i).Value
Next i
End Sub

It says runtime error 9 and subscript out of range.

Any help?

Thanks!

RSX DATA question f.xlsm

Hi tsakta,

Please edit your post, highlight the code, and press the "#" button in the menu to put code tags around it. Then we can look at helping you further.

The problem is that (probably by accident) a space was added to the sheet name "P_L events up to 2 months". Double click the sheet's tab, and remove the space at the end, it is "P_L events up to 2 months " right now.

You're welcome and thanks for marking as solved, and for the rep