Remove a entire row

[wwj]

Code: Select all

    ' Remove duplicate Q at the same SP
    For outRow = maxOutRow To 3 Step -1
        outSP = Sheets(outSht).Cells(outRow, "C")    ' sp
        If IsEmpty(outSP) Then
            Worksheets(outSht).Rows(outRow).Delete
        End If
    Next outRow