Option Explicit

Sub Test()
  
  Dim rngCell As Excel.Range
  Dim rngCellLast As Excel.Range
  
  With Worksheets("Tabelle1")
    Set rngCell = .Range("H1")
    Set rngCellLast = .Cells(.Rows.Count, rngCell.Column).End(xlUp)
  End With
  
  If rngCellLast.Value = "" _
    Then Exit Sub
  
  Do While rngCell.Row <= rngCellLast.Row
    Set rngCell = rngCell.Offset(1)
    If rngCell.Offset(-1).Value = "" Then
      With rngCell.Worksheet
        Call .Range(.Cells(rngCell.Row - 1, "G"), .Cells(rngCell.Row - 1, "J")).Delete(xlShiftUp)
      End With
    End If
  Loop
  
End Sub