VBA to sort range excluding zero values

[Ironman]

Hi

I'd be grateful for some code in a module that will sort range 'Daily Tracking'!C429:D508 (which changes order regularly) into ascending order, but ignoring all the zero values, as below.

5	2013
7	2017
12	2011
14	2016
29	1981
63	1982
104	2014
119	2015
133	2012
138	2018
261	1997
267	1993
326	2010
332	1995
340	1984
347	2020
413	2001
422	2022
520	1996
530	1985
533	1990
538	1999
579	1998
598	2021
646	1992
785	1991
931	1988
964	2009
979	2019
1100	1989
1125	2000
1153	2002
1216	2008
1288	1987
1317	1994
1328	2006
1362	2003
1549	2005
1751	1986
2090	2007
2307	2004
0	2023
0	2024
0	2025
0	2026
0	2027
0	2028
0	2029
0	2030
0	2031
0	2032
0	2033
0	2034
0	2035
0	2036
0	2037
0	2038
0	2039
0	2040
0	2041
0	2042
0	2043
0	2044
0	2045
0	2046
0	2047
0	2048
0	2049
0	2050
0	2051
0	2052
0	2053
0	2054
0	2055
0	2056
0	2057
0	2058
0	2059
0	2060
0	2061

Many thanks!

 

[rlv01]

Perhaps this.

Sub SortRange()
    Dim WS As Worksheet
    Dim SortRange As Range

    Set WS = Worksheets("Daily Tracking")
    Set SortRange = WS.Range("C429:D508")

    If SortRange.Rows.Count > 1 Then
        SortRange.Sort Key1:=SortRange.Columns("A"), Order1:=xlDescending
   
        With Application.WorksheetFunction
            Set SortRange = SortRange.Resize(.Count(SortRange.Resize(, 1)) - .CountIf(SortRange.Resize(, 1), 0))
        End With

        SortRange.Sort Key1:=SortRange.Columns("A"), Order1:=xlAscending
    End If
End Sub

 

[Ironman]

Perfect!

Thank you so much!