将不符合条件的行从一张纸复制到另一张纸

Question

我的VBA将所有行（不包括标题）从一个工作表复制到另一工作表上的下一个空行。

Sub Copy_Paste_Below_Last_Cell()

Dim copy_from As Range
Dim copy_to As Range

Set copy_from = Worksheets("Shipping Data").UsedRange.Offset(1, 0)
Set copy_to = Worksheets("Parts shipped YTD").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

copy_from.Copy Destination:=copy_to
Application.CutCopyMode = False

End Sub

我只想将R列中没有“未发货”的行复制到第二个工作表。然后，我想从原始工作表中删除行，仅保留“未发货”的行。