如果单元格A2：A1000包含任何字母，数字或符号，请将今天的日期放在E列的行上

Question

在此先感谢大家对这篇文章的关注并尽力提供帮助。我是新手，所以代码很杂乱，可能需要改进。

基本上，我拥有的代码正在运行，但给我一条错误消息400？

代码为-如果单元格A2至A1000包含任何字母，数字和/或符号，则将今天的日期放在E列的同一行上。如果单元格A2至A1000不包含任何字母，数字和/或符号，必须将其保留为空，否则我的标签机会疯狂打印空白标签:)它可以正常工作，但收到一条400错误消息。请看所附图片。

此外，我还有另一个代码，有人帮了忙，但一半完成。它是通过搜索我在同一工作簿上称为“公式”的表上创建的表来显示零件的制造位置的。表包含两列信息，即零件号和原始信息，一旦按下宏按钮，它将通过搜索表生成原始信息，并将其放入相应零件号所在的“邮件合并表”中，并将其放在同一行上F列。但是，我需要你们帮我编写一个代码，如果表没有PART NUMBER和ORIGIN信息，我希望它默认为F列“邮件合并表”上的“美国”。

请查看下面的代码并为我提供帮助。预先感谢。

Sub dural()

    Dim r As Range

    For Each r In Range("A2:A1000")
        If r.Value <> "" Then r.Offset(0, 4) = Date
    Next r


For i = 2 To 1000

Worksheets("Mail Merge Sheet").Cells(i, 6).Value = Application.WorksheetFunction.VLookup( _
Worksheets("Mail Merge Sheet").Cells(i, 2).Value, Worksheets("FORMULAS").Range("A:B"), 2, 0)

Next

End Sub