Looking to automate

[Afogelman]

Excel Wizards i am in need of your help to automate 3 processes or macros





Sub Hide()
Dim cell As Range
For Each cell In Range("A1:A200")
If Not IsEmpty(cell) Then
If cell.Value = 0 Then
cell.EntireRow.Hidden = True
End If
End If
Next
End Sub


Sub unhide()
'
' unhide Macro
' unhide
'


'
Cells.Select
Selection.EntireRow.Hidden = False
End Sub
Sub Sort()
'
' Sort Macro
' abc
'


'
Columns("A:A").Select
ActiveWorkbook.Worksheets("Testing").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Testing").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Testing").Sort
.SetRange Range("A1:B29")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub


Hopefully Unhide when one opens document
sort as data is being entered into the first sheet
Hide when closing document

so the hidden data does not take up space when being linked to a presentation


i hope this can be done and i know this is the place to get this answered!

Thank you for your time