Sub t()
Const intMaxColumn =  4 
    Dim i%, j%, strTemp$, intNotEmptyRowsAmount%
    intNotEmptyRowsAmount =  0 
    For i = Selection.Row To Selection.Row + Selection.Rows.Count -  1 
        strTemp = ""
        For j =  1  To intMaxColumn
            strTemp = strTemp & Cells(i, j).Value
        Next
        strTemp = Trim(strTemp)
        If strTemp <> "" Then intNotEmptyRowsAmount = intNotEmptyRowsAmount +  1 
    Next
    MsgBox intNotEmptyRowsAmount
End Sub

Sub test()
    Dim i As Long, x As Long
    For i =  1  To Selection.Rows.Count
        If Application.CountA(Selection.Rows(i)) Then x = x +  1 
    Next i
    MsgBox x
End Sub

Application.WorksheetFunction.CountA