Deleting blanks cells in rows of data

Hi Soo,

Thank you for your question.

The code below will delete the rows that are blank using columns a:h which is the first and last column on the sheet I used to write and test it.

Please try this code below:

Public Sub DeleteAllBlankRows()
Dim WRBK As Workbook
Dim SHT As Worksheet

Set WRBK = ActiveWorkbook
Set SHT = WRBK.Sheets("TEAMBASE")
SHT.Columns("A:H").SpecialCells(xlBlanks).EntireRow.Delete


End Sub

I hope this helps.

Regards

Simon