Delete Blank rows between tables and keep one row.

hi,
i've try to write a code remove any extra empty rows between the tables.

there is actually more than two columns of tables ,but i give sample of two.

the problem with the code is , it's very slow when the tables become little bigger.

please any modification you can make on the code to make it faster will be appreciated.

PHP Code: 


Sub test()
Dim ssheet As String
Dim rownum As Integer
Dim rng As Range


Application.ScreenUpdating = False

ssheet = "Summary"
rownum = 1


For rownum = 1 To 50
If Application.WorksheetFunction.CountA(Worksheets(ssheet).Range("j" & rownum & ":n" & rownum)) = 0 Then
    
    Range("j" & rownum & ":n" & rownum).Delete Shift:=xlUp
   

End If
Next


Application.ScreenUpdating = True
End Sub 


if possible how can I modify the code to keep only one empty row between tables and keep the row between the table name and the table itself.


please check the attached sample.

highly appreciate you help.

thanks in advance.