Hi

I'm not quite proficient in vba's to save my life but I managed to write a simple macro to select and copy and paste special values and format a worksheet that is heavily fortified in formulas. But each time I run the macro it pastes all zero's into a new worksheet instead of values from the original worksheet.
Basically I would hope the macro does is copy and paste special values into a new workheetsheet and also keeping the same formating. I am not sure where I am going wrong with the macro or how to fix it.

I will gladly appreciate any advise and assistance;

Sub TextFile_Annual_Summary()

Dim X As Variant, Y As Variant, T As String

' TextedFile Macro
' Copy Annual Summary into new file and c/p value everything
'
    application.ScreenUpdating = False
    T = Worksheets("Ref").range("N10")
    X = Worksheets("Ref").range("N10")
    Sheets("Annual Summary").Select
    Sheets("User Input&Pull").Activate
    Sheets("Annual Summary").Copy

Sheets("Annual Summary").Select
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    application.CutCopyMode = False
    Sheets("Annual Summary").Select
    Sheets("Annual Summary").Move After:=Sheets(1)
    Sheets("Annual Summary").Name = X & " Annual Summary"
    application.ScreenUpdating = True
    ActiveWindow.DisplayOutline = False
    range("D7").Select
    
    
    End Sub
Thank you.