paste method of worksheet failed

I wonder if anyone can help me with this problem...

I keep getting the error 'paste method of worksheet failed'. I can't figure it out.

Any help much appreciated.

Sub ComponentBrag(bragCol, weekNum)

Dim bragRow As Integer

    bragRow = 2

    Sheets("Component template").Select
    Range("Z2:AB37").Select
    Selection.Copy
    
    With Sheets("BRAG Status")
        .Select
        .Cells(bragCol, bragRow).Select
        .Paste
        .Cells(bragCol, bragRow).Select
        .ActiveCell.Value = "Week " & weekNum
    End With
End Sub