Create Pop Up Table

[young engineer]

Hi All
I want to create a sort of pop up table of results from my worksheet, and link it to a button. I want to have the following columns side by side for comparison purposes: F:V, I:U, M:Z, Q:AH, AD:Al. I also want to have columns F,I,M,Q,AD a certain colour, and columns V,U,Z,AH,AL a certain colour.

Any help on how I write the code code for this and link it to a toggle button to show/hide this table. I am using excel 2007.
Please Help

 

[onlyadrafter]

Hello,

is this working as expected?

Sub CREATE_TABLE()
    Sheets("Sheet2").Cells.ClearContents
    With Sheets("Sheet1")
        .Columns("F:V").Copy Sheets("Sheet2").Range("IV1").End(xlToLeft).Offset(0, 1)
        .Columns("I:U").Copy Sheets("Sheet2").Range("IV1").End(xlToLeft).Offset(0, 1)
        .Columns("M:Z").Copy Sheets("Sheet2").Range("IV1").End(xlToLeft).Offset(0, 1)
        .Columns("Q:AH").Copy Sheets("Sheet2").Range("IV1").End(xlToLeft).Offset(0, 1)
        .Columns("AD:AL").Copy Sheets("Sheet2").Range("IV1").End(xlToLeft).Offset(0, 1)
    End With
    With Sheets("Sheet2")
        .Visible = True
        .Columns("A").Delete
        .Columns("Q").Interior.ColorIndex = 3
        .Columns("AD").Interior.ColorIndex = 3
        .Columns("AR").Interior.ColorIndex = 3
        .Columns("BJ").Interior.ColorIndex = 3
        .Columns("BS").Interior.ColorIndex = 3
   End With
End Sub

change sheet names as required.

 

[young engineer]

The code seems right, and i have changed the sheet names, but should i put this code into my macro, or link it to a button. If I have to link it, how do I go about doing so. I am using excel 2007