=СЧЁТЕСЛИ(B1:E1;">0")

Sub fg()
       Dim a(), i&

       i = InputBox("По какому столбцу сортировать?")
       a = [a1].CurrentRegion.Value
       uSort a, i
       [a1].CurrentRegion.Value = a
End Sub

Sub uSort(ByRef x(), n&)
       Dim v, u&, d&, f&, st&
       If IsArray(x) Then
           f = LBound(x): d = f
           For u = f + 1 To UBound(x)
               If x(u, n) < x(d, n) Then
                   For st = LBound(x, 2) To UBound(x, 2)
                       v = x(d, st): x(d, st) = x(u, st): x(u, st) = v
                   Next
                   u = d - 1: d = u - 1: If u < f Then d = u: u = f
               End If
               d = d + 1
           Next
       End If
End Sub