VBA farvelægge markeret celle - fortsat

I dette spørgsmål http://www.eksperten.dk/spm/489877 får jeg en kode, som farvelægger den aktive celle samt den tilsvarende i kolonne B, for 2 givne områder.

Imidlertid konflikter denne kode med Custom Views og når jeg skjuler/viser kolonner.

Det sker ikke, hvis man bruger denne kode i stedet, som anvender betinget formatering til samme formål.

Koden highlighter hele kolonnen og rækken indtil cellen.
Hvordan skal koden til denne metode se ud, hvis jeg skal løse mit oprindelige problem - altså kun at highlighte den aktive celle samt den tilsvarende i kolonne B og kun for områderne D7:I16 og K7:L16.

Håber nogen har mod på opgaven.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Integer
'// Amended routine found on this Web site
'// Note: Don't use IF you have Conditional
'// formating that you want to keep!

'// On error resume in case
'// user selects a range of cells
On Error Resume Next
iColor = Target.Interior.ColorIndex
'Leave On Error ON for Row offset errors

If iColor < 0 Then
    iColor = 36
Else
    iColor = iColor + 1
End If

'// Need this test incase Font color is the same
If iColor = Target.Font.ColorIndex Then iColor = iColor + 1

Cells.FormatConditions.Delete

'// Horizontal color banding
With Range("A" & Target.Row, Target.Address) 'Rows(Target.Row)
    .FormatConditions.Add Type:=2, Formula1:="TRUE"
    .FormatConditions(1).Interior.ColorIndex = iColor
End With

'// Vertical color banding
With Range(Target.Offset(1 - Target.Row, 0).Address & ":" & Target.Offset(-1, 0).Address) 'Rows(Target.Row)
    .FormatConditions.Add Type:=2, Formula1:="TRUE"
    .FormatConditions(1).Interior.ColorIndex = iColor
End With

End Sub