VBA in change event format to auto remove rows having zero value and auto sort

Hi,
I have sheet2 which is taking a direct linked data from sheet1

What I want to achieve is as follows:

First delete rows based on values in certain range of cells.
The VBA i use is as follows with a form-control button:

Option Explicit
Sub DeleteRows()
Dim ChkRange As Range
Set ChkRange = Range("C4:C188")
Dim cell As Range
For Each cell In ChkRange
    If cell = "0" Then
        cell.EntireRow.Delete
    End If
Next
End Sub

secondly I also want to sort all rows based on values ( time) in cells F4:F188 ( lowest value first .....)
However the first action has removed certain number of rows having 'Zero' value.
I want it also to ignore any blank cells while sorting so that they do not interfere.
I can manually do this as well.

I need to combine both above in kind of change event, where any updation of data on sheet2 ( which is linked) will trigger change event to delete rows having Zero value and sort them.

I have tried various methods, but no success.

Any help please..
Many thanks
regards

Hi,
PS: Want to sort out first and then delete rows having Zeros.
If I reverse the order the zeros return.

Many thanks

Hi,
PS: Want to sort out first and then delete rows having Zeros.
If I reverse the order the zeros return.

Many thanks

Hi Experts,
Any Help yet??
Thanks Regards

Hi Experts,

I have figured it out and have codes for Sorting and to hide rows having zero value.

I now need help in combining both codes please..... tried a lot but it will not work....

First auto sort..... It works fine....

ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("C4:C20") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    
    With ActiveWorkbook.Worksheets("Sheet2").Sort
        
        .SetRange Range("A3:K20")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    
    End With


End Sub

To hide rows having Zero value..... It works fine...

Sub Hide_rows()
Dim LastRow As Long
Dim Rng As Range
LastRow = Range("A3:K190").End(xlUp).Row '
Set Rng = Range("A3:K190" & LastRow) '
Application.ScreenUpdating = False
For Each cell In Rng
If cell.Value = "0" Then
cell.EntireRow.Hidden = True
End If
Next cell
Application.ScreenUpdating = True
End Sub

Many thanks in advance.....

Regards

Hi all,
Apology. The first code was incomplete. Here is the complete one.

Any help yet please from any one to incorporate hide code in change event . Preferably if that can delete the rows instead of hiding please..

Regards

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("C4:C20") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Sheet2").Sort
        
        .SetRange Range("A3:K20")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        End With
End Sub

Hi
I am now closing this one as had no luck on it. I have adapted a different approach to it now.
Many thanks friends