Tenho o seguinte codigo e como fazer para nao colorir as linhas coluna A ?

Tenho dados nas Colunas B, C, D, E, F, G

A coluna A nao sera colorida

Grato

Dim Linha_Anterior As Range
Dim cor_anterior As Integer
Dim cor_fim As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    On Error Resume Next

    'Define quantas colunas vão ser selecionadas

    Dim x As Integer
    Dim colunas As Integer
    colunas = 6

    'Teste para saber se a linha selecionada está dentro do limite dos dados que devem ser selecionados
    If ActiveCell.Column > colunas Then

                        For x = 1 To colunas
                                Plan7.Cells(Linha_Anterior.Row, x).Interior.ColorIndex = cor_fim
                        Next x

                 Exit Sub
    Else

        'Captura a cor atual da célula... se a célula selecionada estiver na mesma linha
        'a cor anterior será mantida, pois não queremos mudar a cor que já  existia na célula

            If Linha_Anterior.Row = ActiveCell.Row Then
                cor_anterior = cor_anterior
            Else
                cor_anterior = ActiveCell.Interior.ColorIndex
            End If

        'Altera a cor de fundo da linha selecionada até o limite de colunas
        'determinado pela variável colunas

          For x = 1 To colunas
          Plan7.Cells(ActiveCell.Row, x).Interior.ColorIndex = 26
          Next x

              'Remove a cor de fundo quando a linha perde a seleção
              If Not Linha_Anterior Is Nothing Then

                    'Verifica se a linha atual já estava selecionada
                    'caso seja uma nova linha selecionada retorna a cor anterior

                    If ActiveCell.Row <> Linha_Anterior.Row Then

                        For x = 1 To colunas
                                Plan7.Cells(Linha_Anterior.Row, x).Interior.ColorIndex = cor_fim
                        Next x

                    End If

                End If

                'define as variáveis que serão usadas na próxima seleção
                'como sendo a seleção anterior
                Set Linha_Anterior = ActiveCell
                cor_fim = cor_anterior


    End If


End Sub