Sort Range Using VBA And Ignoring Or Discarding Blank Rows

[Admin]

Hi

You can do this in the code itself.

Sub kTest()
    
    Dim r As Range
    
    Set r = Range("a1:k100")
    
    Const fNum = -9999999.99
    
    With r
        On Error Resume Next
        .SpecialCells(4).Value = fNum
        'your code for sort
        .Replace fNum, vbNullString, 1
    End With
    
End Sub