匹配两行值逐个单元格直到最后使用的单元格

情况1
将两行单元格的值逐一匹配，直到最后使用同一行的单元格。 行最后一行是表单1，最后一行是第二行。 最后一行和倒数第二行之间有一行空行。 两行中有一些空白单元格，数据从列“D”开始。

案例2
如果单元格匹配，则进入同一行中的下一个单元格，或者如果单元格值不匹配，则更改该特定列的倒数第二行单元格的背景颜色，该值不匹配。

一旦所有的映射完成，删除最后一行。

我的代码不工作：

Sub copyRow() Dim rng As Range Dim ws As Worksheet 'ws = ActiveWorkbook("sheet1").Select Set rng = ws.Range("A6").End(xlUp).Offset(-2, 0).Select lRow = Range("A" & Rows.Count).End(xlUp).Row Set MR = Range("A2:A" & lRow) For Each cell In MR If cell.Value = "False" Then rng.Interior.ColorIndex = 10 ElseIf cell.Value = "True" Then End If Next End Sub