How to find out if an entire row is blank in excel thorough vba

Question

I have a sheet in which I have data from two different sources.I\'ve a blank row between them.I want to make this blank row as my delimiter.How can I find out if the entire

Answer 1

WorksheetFunction.CountA(), as demonstrated below:

Dim row As Range
Dim sheet As Worksheet
Set sheet = ActiveSheet

For i = 1 To sheet.UsedRange.Rows.Count

    Set row = sheet.Rows(i)
    If WorksheetFunction.CountA(row) = 0 Then
        MsgBox "row " & i & " is empty"
    End If

Next i