Sub 値と数値の書式の貼り付け()
    Range("E6:E20").Select
    Selection.Copy
    Range("B6").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=  _ 
    xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub