Execute Macro only if number of rows are 4

Hello!!!

i have several sheets of data in a workbook

i need to run a macro in all sheets only if the number of rows are 4 excluding the heading row(titles)

If the number of rows are more than 4..then data should be as it is.

Thanks in Advance

GOkz

Sub takelrgnom()

    Dim LastRow As Long
    Dim i As Long
    Dim ws As Worksheet
        
    For Each ws In ThisWorkbook.Worksheets
    ws.Activate
    Application.DisplayAlerts = False
    If ws.Name = "0" Then GoTo xskip
    LastRow = Cells(Rows.Count, "F").End(xlUp).Row
        
    If WorksheetFunction.CountA(Range("A:A")) = 4 Then
    
    For i = LastRow To 2 Step -1
        If Cells(i, "N").Value <> Application.Evaluate("MAX(IF(" & Range(Cells(1, "F"), Cells(LastRow, "F")).Address _
            & "=" & Cells(i, "F").Address & "," & Range(Cells(1, "N"), Cells(LastRow, "N")).Address & "))") Then
            Rows(i).Delete
        End If
    Next i
    Application.DisplayAlerts = True
xskip:
End If
    Next ws
 
 End Sub

I applied the code..but no effect on data on any sheets...

what can be the reason??

thanks

Gokz

Yeaa...it should be 5 including the heading i guess

Thanks for the quick help.