Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("3. M15").Select
Range("B26:D26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("test").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub