Selection.Paste Please tell me whst is the error in this code and how it can be corrected.

[vroom547]

Sub Macro1()

'

' Macro1 Macro

'

' Keyboard Shortcut: Ctrl+q



Range("F11:F36").Select

ActiveWindow.SmallScroll Down:=12

Range("F11:F36,F40:F48").Select

Range("F48").Activate

ActiveWindow.SmallScroll Down:=15

Range("F11:F36,F40:F48,F52:F53,F57:F61").Select

Range("F61").Activate

ActiveWindow.SmallScroll Down:=15

Range("F11:F36,F40:F48,F53:F57,F57:F61,F65:F66").Select

Range("F66").Activate

Selection.Copy

Windows("T-4 (2024 25) Qualification Spreadsheet").Activate

Sheets("Participants Data").Select

Range("A100000").End(xlUp).Select

ActiveCell.Offset(1, 0).Range("A2").Select

Selection.Paste Special Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=True

End Sub

 

[Fluff]

Ok, try

Sub vroom()

   Range("F11:F36,F40:F48,F53:F61,F65:F66").Copy
   With Windows("T-4 (2024 25) Qualification Spreadsheet.xlsm").Sheets("Participants Data")
      .Range("A" & .Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues, , , True
   End With
End Sub

 

[vroom547]

error on this

With Windows("T-4 (2024 25) Qualification Spreadsheet").Sheets("Participants Data")

 

[Fluff]

Oops, that should be

       With WorkBooks("T-4 (2024 25) Qualification Spreadsheet.xlsm").Sheets("Participants Data")

 

[vroom547]

Oops, that should be

       With WorkBooks("T-4 (2024 25) Qualification Spreadsheet.xlsm").Sheets("Participants Data")

I forgot to tell you that i ran the code with .xlsm and without .xlsm but getting same error.

Runtime error 9.
Subscript out of range.

 

[Fluff]

In that case either the workbook name or the sheet name is wrong.