运行突出显示值的事件代码，但突出显示另一个区域中的突出显示

Question

我正在附加链接

https://www.dropbox.com/s/b5m53erinmcj6ys/EXAMPLE.xlsm?dl=0

以查看我拥有的文件。当前，当在A列上选择组合时，它将在右侧范围H5至L27中突出显示构成组合的数字。

所以我的问题是如何在第一范围H5至L27的右侧范围内进行镜像或模拟，这意味着在第一范围中突出显示的单元格在第二范围Q5至U27中的相同单元格中突出显示。现在，第二个范围内的数据无关紧要，因为第二个范围只是模仿第一个范围的单元格，并以黄色突出显示。

（第一个完成以显示它应该做什么）

到目前为止，我的代码是用于将一个单元格从一个范围模拟到另一个范围，但是卡住了，无法使其一次模仿所有五个单元格。这是代码，

[Private Sub Worksheet_SelectionChange(ByVal Target As Range)    With Target
    If .Cells.Count = 1 Then
        If Not Application.Intersect(Target, Range("H:L")) Is Nothing Then
            Application.EnableEvents = False
            Application.Union(.Cells(1, 1), .Offset(0, 9)).Select
            Application.EnableEvents = True
        End If
        If Not Application.Intersect(Target, Range("Q:V")) Is Nothing Then
            Application.EnableEvents = False
            Application.Union(.Cells(1, 1), .Offset(0, -9)).Select
            Application.EnableEvents = True
        End If
        If Not Application.Intersect(Target, Range("Z:AD")) Is Nothing Then
            Application.EnableEvents = False
            Application.Union(.Cells(1, 1), .Offset(0, -9)).Select
            Application.EnableEvents = True




   End If
End If
End With

结束子]

对此非常感谢！ 真诚的丹尼斯