A macro that copies formula down two rows, then pastes value in the first formula cell

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+Z
'
    Range("B6:C6").Select
    Selection.Copy
    Range("B9:C9").Select
    ActiveSheet.Paste
    Range("B6:C6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A7:C8").Select
    Application.CutCopyMode = False
    Selection.EntireRow.Delete
    Range("B7:C7").Select
End Sub

So what I am trying to do is paste the forumlas from b6 and c6 down to b9 and c9, then pasting only the value in b6 and c6. then delete a7:c8 rows. But when I try to run the macro it doesn't work at all.
17fAs9B.jpg

I am trying to move the date and ISBN code over, so it is beside the book.

As you can see, it just pastes the first value over and does not repeat itself. But it still deletes the rows, just doesnt put anything in B and C column. How do I record this macro properly?

edit: this is the formula for the B column: =RIGHT(A7,LEN(A7)-FIND(":",A7)-1) and C: =RIGHT(A8,LEN(A8)-8)