Need Help With PasteSpecial

[RunTime91]

Hello...

I do not understand why this I pasting blank rows -

With WsTemplate
    .Range("A1:E" & LstRow).Copy
   With Workbooks.Add
      With .Sheets("Sheet1").Range("A1")
          .PasteSpecial  Paste:=xlPasteColumnWidths
      End With
   End With
End With

Thank You...

 

[Joe4]

It looks like all that you are doing is copying the column width, not the values:

.PasteSpecial  [COLOR=#ff0000][B]Paste:=xlPasteColumnWidths[/B][/COLOR]

If you want the value, it should be:

.PasteSpecial Paste:=xlPasteValues