Remove any blank rows within a range. 

Set workRng = Range("Set Range")
xRows = workRng.Rows.Count
    
For i = xRows To 1 Step -1
	If Application.WorksheetFunction.CountA(workRng.Rows(i)) = 0 Then
		workRng.Rows(i).EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
	End If
Next

Categorized in:

VBA Excel,

Last Update: May 18, 2024