hi everyon

i´m trying to get this commandbutton (that is in sheets(1)) to work

Private Sub botao_m1_Click(

Application.ScreenUpdating = Fals

Sheets(4).Selec
Range("K15").Selec
Selection.Cop
Range("M15").Selec
Selection.PasteSpecial Paste:=xlPasteValue
etc..