Hi, I have a spread sheet and i am using vba to copy and paste basically the entire sheet after filtering it a little.

I can do the following and it executes no problem:
Workbooks(Portfolio_Filename).Worksheets(Sheet_GMAT_Active).Range("$A1:$" & alphacol(last_col) & last_row1).PasteSpecial _
    Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
However, the above only pastes values and i want to keep the formatting of some of the columns so i could prefer just a strait copy and paste. I tried using the following code and IT DID NOT WORK.
Workbooks(Portfolio_Filename).Worksheets(Sheet_GMAT_Active).Range("$A1:$" & alphacol(last_col) & last_row1).Paste
Not sure why the above does not work and i am not sure how to get code to do what i want.......can someone help?

If you need more help or info please let me know