Betinget formatering i Excel via VB kode?

Min kode:
----
Set tbl = Range("B65536").End(xlUp)

lastCell.Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

tbl.Select
    Set tbl2 = tbl.Offset(1, 0).Resize(tbl.Rows.Count + 4, tbl.Columns.Count + 39)
    tbl2.Select
   
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=$AT$9"
    Selection.FormatConditions(1).Interior.ColorIndex = 3
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=$AT$16"
    Selection.FormatConditions(2).Interior.ColorIndex = 4
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=$AT$15"
    Selection.FormatConditions(3).Interior.ColorIndex = 8
----
Mit problem:
Jeg prøver at få den til at markere et 5x40 felt fra første ledige celle og så få det indsatte data felt formateret betinget. Det virker umiddelbart også fint - problemet er at den også tager felter udenfor de ønskede 5x40 og formaterer betinget..? De felter den gør det ved er lidt random, intet system efter hvad jeg kan se..

Hjææælp! :<

Gairo