###Dados de teste
Utilizando os seguintes dados para teste:

[![dados][1]][1]

###Inserir código de Evento
Utilizar o evento `Worksheet_Change`, em que este deverá ser colocado dentro da planilha em que os dados se encontram (MARKET).
Por Exemplo, no meu caso foi em Planilha1:

[![Planilha1][2]][2]

###Código

O código é acionado toda vez que a planilha possui alguma alteração.

        Option Explicit
    Private Sub Worksheet_Change(ByVal Target As Range)
        On Error GoTo CleanExit
        Application.EnableEvents = False
        Dim i As Long                                '<-- Linha selecionada
        Dim NumeroCaract As String, anomesdia As String
        Dim ano As Long, mes As Long, dia As Long, DiasNoMes As Long
        
        i = Target.Column
        'Limita o número de caracteres na coluna B
        If i = 2 Then
            NumeroCaract = Len(Target.Value)
            If NumeroCaract <> 6 Then
                MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address
            End If
        End If
        
        'Limita o número de caracteres na coluna C e verifica data
        If i = 3 Then
            'Verifica Num Caract
            NumeroCaract = Len(Target.Value)
            If NumeroCaract <> 8 Then
                MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address
            End If
            'Verifica Data
            anomesdia = Target.Value
            ano = CLng(Left(anomesdia, 4))
            mes = CLng(Left(Mid(anomesdia, 5), 2))
            dia = CLng(Right(anomesdia, 2))
            DiasNoMes = Day(DateSerial(ano, mes + 1, 0))
        
            If mes < 1 Or mes > 12 Or dia < 1 Or dia > DiasNoMes Or ano < 1 Or ano > Year(Now) Then 'Checa se não é data
                MsgBox "Não é data na Célula: " & Target.Address
            End If
        End If
        
        'Limita o número de caracteres na coluna F e verifica se é número
        If i = 6 Then
            'Verifica Num Caract
            NumeroCaract = Len(Target.Value)
            If NumeroCaract <> 4 Then
                MsgBox "Limite de caracteres Ultrapassado na Célula: " & Target.Address
            End If
            'Verifica Se é Número
      
            If Not IsNumeric(Target) Then 'Checa se é data
                MsgBox "Não é número na Célula: " & Target.Address
            End If
        End If
    
    CleanExit:
        Application.EnableEvents = True
        On Error GoTo 0
    End Sub

###Explicação

 - Verifica Num Caract

Este código utilizada a [Função Len](https://msdn.microsoft.com/pt-br/library/dxsw58z6(v=vs.90).aspx) para verificar o número de caracteres na String.

 - Verifica Data

Este código Extrai cada parte da String (ano,mes e dia) e verifica se o ano não é menor do que 1 ou se é maior do que o ano atual (caso trabalhe com o futuro alterar esta parte). Se o dia é menor do que 1 ou se é maior do que os dias que aquele mês possui. Se o mês é menor do que 1 ou maior do que 12.

 - Verifica Se é Número

Este código utiliza a [Função IsNumeric](https://msdn.microsoft.com/pt-br/library/6cd3f6w1(v=vs.90).aspx) para verificar se é número.

 - Verifica se a célula alterada está na coluna desejada

   `If i = 2 Then` é a condicional que verifica se é a coluna do Target, contando pelo index. Onde 1 é A, 2 é B e assim por diante.

  [1]: https://i.sstatic.net/6pEBS.png
  [2]: https://i.sstatic.net/xLMXT.png