Please help! I cannot understand why I might be getting the runtime 1004 error: PasteSpecial Method of Range Class Failed for the red highlighted line.

What I am trying to do:

When a user completely fills out the form they click a button to copy the information to another workbook. I want the copied information to be sorted in descending order, thus it inserts a blank row at the top, copies the first line of info, pastes the values to that blank first row, then repeats.

Dim x As Long
Dim BBS As Workbook
Dim wbOpen As Workbook


    If WorksheetFunction.CountBlank(ActiveSheet.Range("B8:I12")) > 0 Then
        MsgBox "Incomplete!", vbOKOnly
        GoTo ExitOut:
    Else
        Set wbOpen = Workbooks.Open("C:\Documents and Settings\ebickel\Desktop\BBS_Records.xlsx")
        Set BBS = ThisWorkbook
            For x = 8 To 12
                Workbooks("BBS_Records.xlsx").Worksheets("Record").Rows(1).Insert shift:=xlShiftDown
                    BBS.Activate
                        BBS.Worksheets("Observations").Range(Cells(x, 1), Cells(x, 9)).Copy
                            wbOpen.Worksheets("Record").Range("A1").PasteSpecial Operation:=xlPasteValues
                                Application.CutCopyMode = False
            Next x
    End If