Conditional Delete Cells and shift to the left

Hi, markos97,

maybe like this:

Sub EF934924()
Dim lngCounter As Long

Const cstrCOL As String = "A"
Const clngNUM As Long = 5

For lngCounter = 1 To Cells(Rows.Count, cstrCOL).End(xlUp).Row
  Do While Cells(lngCounter, cstrCOL).Value = clngNUM
    Cells(lngCounter, cstrCOL).Delete shift:=xlToLeft
  Loop
Next lngCounter
End Sub

Ciao,
Holger