VBA not completing the whole function and no error message is shown

[wesbez]

Hi All,

I'm trying to run the below macro (recorded) however it stops before it gets to "Rows("1:8").Select" It also paste special values columns AF & AG which I don't want it to do. I've been trying for hours and almost given up hope! Any help is greatly appreciated.

Thanks,
Wes

******************************************

Sub EXPORT_TO_STORE()'
' EXPORT_TO_STORE Macro
'


'
Sheets("Model").Select
Application.Calculation = xlManual
Cells.Select
Selection.Copy
Sheets("Store Feedback").Select
Cells.Select
ActiveSheet.Paste
Columns("A:AV").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J:J,M:M,U:V,AH:AT,AY:BC").Select
Range("AY1").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Rows("1:8").Select
Range("A8").Activate
Selection.Delete Shift:=xlUp
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
Sheets("Summary").Select
Range("I27").Select
Application.Calculation = xlAutomatic
End Sub

 

[Takae]

Hope this helps.

Sub EXPORT_TO_STORE1() '
' EXPORT_TO_STORE Macro
Dim wsS As Worksheet
Set wsS = Sheets("Store Feedback")
With wsS
    Application.Calculation = xlManual
    Sheets("Model").cells.copy .cells
    Application.CutCopyMode = False
    .Range(.Range("A1"), .cells(Rows.count, 31).End(xlUp)).Value = .Range(.Range("A1"), .cells(Rows.count, 31).End(xlUp)).Value
    .Range(.Range("AG1"), .cells(Rows.count, 33).End(xlUp)).Value = .Range(.Range("AG1"), .cells(Rows.count, 33).End(xlUp)).Value
    .Range("J:J,M:M,U:V,AH:AT,AY:BC").Delete Shift:=xlToLeft
    .Range("1:8").Delete Shift:=xlUp
    .Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End With
Sheets("Summary").Select
Range("I27").Select
Application.Calculation = xlAutomatic
 End Sub