PasteSpecial method of Range class failed

I recorded the following macro to copy and paste special (values) a range of numbers in a row.

More precisely, I have created 4 scenarios for my data and I want to select my scenario from a drop-down menu that I have on cell C2 and then copy and paste my results for the 4 different scenarios in a table that I have created in the same sheet and that will have hard-coded data.

The error I get is the one I wrote in the title: PasteSpecial method of Range class failed

Maybe I am wrong but it seems to me that the macro does not go to cell C2 to change the scenario from the drop-down menu.

I would be grateful if anybody can help.

Thanks very much!

Macro below:

Range("C51").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("O18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C53").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("O25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C51").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("O19").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C53").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("O26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C51").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("O20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C53").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("O27").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C51").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("O21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C53").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("O28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Apologies for the code tags.. I will use them next time.

Is it possible that the reason is that I used ctrl + C when recording the macro to copy my data?

Thanks very much.

Thanks so much Norie.

Now the copy/paste works.

However it doesn't change the scenarios that I have in a drop-down menu on cell C2. Any suggestion on how to insert that in the code?

Thanks very very much