如果一个特定的单元格或一组单元格为空，则在有值时停止宏，然后继续使用其余的宏

Question

我正在处理一个很长的宏。我正在使用主工作表输入数据，然后创建一个只包含我需要的数据的新工作表。 在母版中，我列出了不同的产品，例如：F14-F22用于产品列表，每个个别信息都用于另一个工作表。如果F15为空白，我希望宏停止运行（有时只有一个产品，即使F15为空白，宏也会将每个产品信息从F14-F22传输到​​新工作表）

我希望宏能够识别出，如果其中一个单元格为空，那么如果它不为空则需要停止，然后继续使用宏直到结束。

这是一件被转移的东西（一个订单中可以有9个产品，所以基本上，它重复相同的信息，除了F，M，A，U，S，因为行随产品而变化）

Set NEWGC = Workbooks.Open("Q:\CUSTOMER'S WHITE CARD\2017 MASTER WC\" & FOLDER & "\" & WHITECARD & ".XLSX")
Worksheets(O4).Select
Worksheets(O4).Range("A7").Select
RowCount = Worksheets(O4).Range("A7").CurrentRegion.Rows.Count
With Worksheets(O4).Range("A7")
.Offset(RowCount, 0) = A11
.Offset(RowCount, 1) = U3
.Offset(RowCount, 2) = O3
.Offset(RowCount, 3) = F14
.Offset(RowCount, 4) = M14
.Offset(RowCount, 5) = A14
.Offset(RowCount, 6) = U14
.Offset(RowCount, 7) = S14
.Offset(RowCount, 8) = A33
.Offset(RowCount, 9) = G33
.Offset(RowCount, 10) = S24
.Offset(RowCount, 11) = S26
.Offset(RowCount, 12) = S25
.Offset(RowCount, 13) = S27
.Offset(RowCount, 14) = S28
End With
NEWGC.Save

Set NEWGC = Workbooks.Open("Q:\CUSTOMER'S WHITE CARD\2017 MASTER WC\" & FOLDER & "\" & WHITECARD & ".XLSX")
Worksheets(O4).Select
Worksheets(O4).Range("A7").Select
RowCount = Worksheets(O4).Range("A7").CurrentRegion.Rows.Count
With Worksheets(O4).Range("A7")
.Offset(RowCount, 0) = A11
.Offset(RowCount, 1) = U3
.Offset(RowCount, 2) = O3
.Offset(RowCount, 3) = F15
.Offset(RowCount, 4) = M15
.Offset(RowCount, 5) = A15
.Offset(RowCount, 6) = U15
.Offset(RowCount, 7) = S15
.Offset(RowCount, 8) = A33
.Offset(RowCount, 9) = G33
.Offset(RowCount, 10) = S24
.Offset(RowCount, 11) = S26
.Offset(RowCount, 12) = S25
.Offset(RowCount, 13) = S27
.Offset(RowCount, 14) = S28
End With
NEWGC.Save

如果F15为空白，我希望宏停止第二个

我试过这个

If Activesheets.Range("F15").Value = "" Then
    Exit Sub
Else
    Call SAVEWHITECARD_Click (which is my macro name)

但它没有用（它会停止宏是否有值）

我也尝试过：

If ISEMPTY(Activesheets.Range("F15").value = True then MsgBox "Only one product in this order" Exit Sub Else Call SAVEWHITECARD_CLICK End If

但也没有用。

我对Macro不太了解，我只是阅读，寻找我想要的东西并尝试一下。我被困在这里。 请帮忙。