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

Correction
I guess i didn't really explain it right in the first post

i want the code to only delete and shift up rows in column A, B, and C only if for that row column A, B, and C are all blank

I have data outside columns A, B, and C so this is why i can not simply delete the whole row.

any help

Hi JD,
try it

Sub DeleteRowsInItem()
Application.ScreenUpdating = False: Columns(1).Insert
On Error Resume Next
With Range("A4:A" & Cells(Rows.Count, 2).End(xlUp).Row)
    .FormulaR1C1 = "=IF(COUNTBLANK(RC[1]:RC[3])=3,1,"""")"
    Intersect(Range("A:D"), .SpecialCells(-4123, 1).EntireRow).Delete
End With
Columns(1).Delete: Application.ScreenUpdating = True
End Sub

Figured it out

Sub delem()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "B").End(xlUp).Row
For r = lr To 1 Step -1
    If Range("A" & r).Value = "" And Range("B" & r).Value = "" And Range("C" & r).Value = "" Then Range("A" & r & ":C" & r).Delete
Next r
End Sub