Boa Tarde!

Bem... aqui vai uma sugestão genérica... como a sua mensagem...

Sub Validar()
    Dim QtdeCol, i, UltimaLinha, UltimaColuna As Integer
    QtdeCol = 10
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
    UltimaColuna = Sheets("Plan1").Cells(1, Columns.Count).End(xlToLeft).Column
    If UltimaColuna > QtdeCol Then
        For i = 1 To UltimaLinha
            If Not IsDate(Range("A" & i).Value) Then
                If Not IsNumeric(Range("B" & i).Value) Then
                    If IsNumeric(Range("C" & i).Value) Then
                        MsgBox "Você não pode ter mais de 10 colunas, a coluna A só pode conter datas, a coluna B só pode conter números e a coluna C só pode conter texto!", vbCritical, "PARÂMETROS"
                    End If
                End If
            End If
        Next
    End If
End Sub