Option Explicit
Sub werteuebertragen()
Dim i As Long
With Worksheets("offene_Bestellungen")
For i = 2 To .Cells(.Rows.Count, "G").End(xlUp).Row
If .Cells(i, "G") <> "" Then
With Worksheets("abg._Bestellungen")
.Cells(.Rows.Count, "A").End(xlUp).Offset(1).Resize(, 8).Value = _
Worksheets("offene_Bestellungen").Cells(i, "A").Resize(, 8).Value
End With
End If
Next i
On Error Resume Next
.Range("G2:G" & .Cells(.Rows.Count, "A").End(xlUp).Row) _
.SpecialCells(xlCellTypeConstants).EntireRow.Delete
On Error GoTo 0
End With
End Sub