Macro to Delete blank rows by shifting rows upwards

[Howardc1001]

I have data on sheet "SH"


Where there are blank rows between the data, I would like these shifted upwards just below the last row containing data


I have tried to write code to do this, but nothing happens when running the code

 Sub DeleteBlankCells_CP()
With Sheets("CP")
On Error Resume Next

.Range("A2:A & rows.count").SpecialCells(xlCellTypeBlanks).Areas(1).Delete Shift:=xlUp
 End With


End Sub

Kindly test & amend my code