VBA to copy worksheet and insert at the end all worksheets

[nirvehex]

Hi,

I have one worksheet named "Bid Template". I'm trying to write a macro that makes a copy of this worksheet, puts the tab at the end of all my other worksheets within the same workbook and renames it "Bid Scrubbed".

Then I want the same macro to insert 4 columns starting at column DV, shifting this column to the right. I want to name the columns "Test 1", "Test 2", "Test 3", "Final Test".

Then I want to paste the entire sheet as Paste Special Values.

Is this a difficult code to write? Can anyone help me out? When I try to record a macro, it breaks for some reason.

Thanks!

 

[Fluff]

Hiya
Is this what you're after?

Sub Bidtemp()

    Sheets("Bid Template").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
    ActiveSheet.Name = "Bid Scrubbed"
    With Sheets("Bid Scrubbed")
        .Columns("DV:DY").Insert xlShiftToRight
        .Range("DV1") = "Test 1"
        .Range("DW1") = "Test 2"
        .Range("DX1") = "Test 3"
        .Range("DY1") = "Final Test"
        .Cells.Copy
        .Cells.PasteSpecial xlPasteValues
        .Range("A1").Select
    End With
    Application.CutCopyMode = False


End Sub