Need some help with VBA-Macro

[renman27]

Hello,

In the past I created a Recording Macro that will clear the screen when I use the clear button.
I am making a new copy with a different version. I have a message box as well... But I am trying to copy and paste and change it to work on larger file...
Is there an easier way or to do this.?

Basic thing is to have a easy option to click a button and copy and paste from the back up to each schedule...clear format and words.

Here is what is on another file..

Sub Top()
'
' Top Macro
'
If MsgBox("are you sure?", vbYesNo) = vbYes Then
Range("D4").Select
Sheets("backup").Select
Range("D4:N16").Select

Selection.Copy
Sheets("IPT MEETING SCHEDULE").Select
ActiveSheet.Paste
End If
End Sub
Sub Bottom()
'
' Bottom Macro
'
If MsgBox("are you sure?", vbYesNo) = vbYes Then
Range("B21").Select
Sheets("backup").Select
Range("B21:M33").Select

Selection.Copy
Sheets("IPT MEETING SCHEDULE").Select
ActiveSheet.Paste
End If
End Sub

 

[Michael M]

Maybe this

Sub Bottom()
If MsgBox("are you sure?", vbYesNo) = vbYes Then
    Sheets("backup").Range("B21:M33").Copy Sheets("IPT MEETING SCHEDULE").Range("A1")
End If
End Sub

 

[renman27]

Maybe this

Sub Bottom()
If MsgBox("are you sure?", vbYesNo) = vbYes Then
    Sheets("backup").Range("B21:M33").Copy Sheets("IPT MEETING SCHEDULE").Range("A1")
End If
End Sub

Not sure..Because I can change the range... E11:AM39 like the pic....but I cant remember how I did the Record macro and then had the copy and paste...

 

[renman27]

Update....

I can get the Macro to work....but for some reason I cant assign again to a button? I am also getting an error after I get the warning prompt?


Sub Top()
'
' Week1Macro
'
If MsgBox("are you sure?", vbYesNo) = vbYes Then
Range("E11").Select
Sheets("backup").Select
Range("E11:AM38").Select

Selection.Copy
Sheets("Week1").Select
ActiveSheet.Paste
End If
End Sub

Sub Bottom()
'
' Week2Macro
'
If MsgBox("are you sure?", vbYesNo) = vbYes Then
Range("E11").Select
Sheets("backup").Select
Range("E11:AM38").Select

Selection.Copy
Sheets("Week2").Select
ActiveSheet.Paste
End If
End Sub