How to copy existing worksheet instead of moving values

Hello,

I have a simple macro:

Sub MG_LOG()

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim numpages As Integer
Dim numweek As Integer
Dim MG As Integer
Dim posit As Integer

Set ws1 = Sheet1
posit = 1
For MG = 1 To 4
numweek = 1
    For numpages = 1 To 26
        Set ws2 = ActiveWorkbook.Sheets.Add(, After:=Sheets(Worksheets.Count))
            With ws2
                .Name = ("MG " & MG & "Weeks" & numweek & "-" & (numweek + 1))
                .Range("A1:AB21").Value = ws1.Range("A1:AB21").Value
                .Range("A1").Value = ("Motor Generator " & MG)
                .Range("A3").Value = ("Week " & numweek)
                numweek = numweek + 1
                .Range("A12").Value = ("Week " & numweek)
                .Range("A23").Offset(0, posit).Value = ("Motor Generator " & MG)
            End With
numweek = numweek+1
    Next numpages
posit = posit + 6
Next MG

End Sub

It works correctly, but can someone tell me how I can modify this to copy sheet1 (including formatting and pictures) to the output created sheets instead of just moving the values?

Any help appreciated

Hi,

See if this helps

Sub MG_LOG()

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim numpages As Integer
Dim numweek As Integer
Dim MG As Integer
Dim posit As Integer

Set ws1 = Sheet1
posit = 1
For MG = 1 To 4
numweek = 1
    For numpages = 1 To 26
        Set ws2 = ActiveWorkbook.Sheets.Add(, After:=Sheets(Worksheets.Count))
            With ws2
                .Name = ("MG " & MG & "Weeks" & numweek & "-" & (numweek + 1))
                 ws1.Range("A1:AB21").Copy Destination:=.Range("A1:AB21")
                .Range("A1").Value = ("Motor Generator " & MG)
                .Range("A3").Value = ("Week " & numweek)
                numweek = numweek + 1
                .Range("A12").Value = ("Week " & numweek)
                .Range("A23").Offset(0, posit).Value = ("Motor Generator " & MG)
            End With
numweek = numweek + 1
    Next numpages
posit = posit + 6
Next MG

End Sub

Thanks

Thank you! That is almost perfect.

The only thing that wasn't perserved was the row and column sizes... any ideas on that?

Excellent.

Now I see what I was doing wrong. I was trying to set ws2 and copy in the same statement.

Thank you all for the help and Happy Holidays!