Delete certain cells if cell is blank

i have the following code (that works!) to delete rows if the cell in column B in that row is blank. I need this changed to only delete cells in column A, B and C but not the entire row.

so if the cell is blank in column B i only want it to delete and shift up the first three columns of that row instead of the whole row.

heres the code

Sub DeleteRowsInItem()
    Dim Lastrow As Integer
    
    Lastrow = Range("B" & Rows.Count).End(xlUp).Row
    
    Range("B4:B" & Lastrow).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        
End Sub

thanks for any help
JD