Text disappears after Macros runs

[Dbmrkrohn]

I am trying to write a Macros that will hide columns and uncheck a few drop downs. I have the macros recorded and when I run it all the data in the workbook disappears. Here is a sample of my code just curious to why this is happening. Thanks in advance

Sub Macro1()
'
' Macro1 Macro
' Excess Space
'
' Keyboard Shortcut: Ctrl+Shift+A
'
Columns("A:A").Select
Range("A3").Activate
Selection.Delete Shift:=xlToLeft
Selection.NumberFormat = "0.00"
Selection.NumberFormat = "0.0"
Selection.NumberFormat = "0"
ActiveWindow.SmallScroll ToRight:=11
ActiveSheet.Range("$A$4:$AK$271").AutoFilter Field:=12, Criteria1:="=CMB", _
Operator:=xlOr, Criteria2:="=MTB"
ActiveSheet.Range("$A$4:$AK$271").AutoFilter Field:=15, Criteria1:="="
ActiveSheet.Range("$A$4:$AK$271").AutoFilter Field:=18, Criteria1:= _
"=Leased", Operator:=xlOr, Criteria2:="=Owned/Ground Lease"
Columns("S:S").Select
Selection.NumberFormat = "m/d/yyyy"
Columns("T:T").Select
Selection.ColumnWidth = 15
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
Columns("U:AI").Select
Selection.EntireColumn.Hidden = True
Columns("AK:AK").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=-13
Columns("G:J").Select
Range("G3").Activate
Selection.EntireColumn.Hidden = True
Columns("L:P").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=-5
End Sub

[TMS]

Please see the yellow banner at the top of the page.

Also ...

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional.)