Vba 拉取重复行/条件不起作用？

我是一个VBA新手，通过修改现有的宏和尝试和错误来学习，所以如果我所问的似乎是错误的，我很抱歉

我合并/修改了一些宏，以便根据条件将外部工作簿中的行拉到工作簿中。问题是我被随机分配了重复的行，我不知道为什么。有人知道问题是什么吗？我面临的第二个问题是，除了列AF标准之外，我还想进行筛选，以便列E中的日期介于不同工作表上两个单元格中指定的日期之间

我一直在尝试使用这句话：

If DateValue.Sheets("Control")("B1") < ("E1:E" & B) < DateValue.Sheets("Control")("C1") Then

GetFileName是一个检索路径的函数

---

谢谢你的帮助，如果我遗漏了一些非常简单的东西，我很抱歉

尝试使用以下语法：

If Sheets("Control").Range("B1").Value < Sheets("Control").Range("C" & B).Value ...

如果工作表（“控制”）.范围（“B1”）.值<工作表（“控制”）.范围（“C”和B）.值。。。

---

应该使用

和
组合多个条件
很抱歉，我从未在vba中尝试过如此深入的操作。我不确定在哪里输入该行：
If Sheets（“Control”）.Range（“B1”）.ValueSheets（“Control”）.Range（“E”和B）。Value
@user1872838如果B1和C1的值都小于E[B-number]值，该代码将返回TRUE。进一步取决于您的实际需要。编辑以修复，但我不确定如何编写它，以便它能够扫描AF[B]中的true和“Writed”以及E[B]中的正确日期条件。
If Sheets("Control").Range("B1").Value < Sheets("Control").Range("C" & B).Value ...