Sub 値だけ貼り付け()
    Range("E6:E20").Copy
    Range("B19:C19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, 
    SkipBlanks _  :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub