error 13 en tiempo de ejecucion

[embetro1]

Buenas tardes quisiera saber si me pueden ayudar con este error 13 en tiempo de ejecucion no coinciden los tipos.

Cuando le doy depurar me marca la siguiente linea.



Sheets("Ajustes").Select
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.ClearContents
x = 2
While x <= Bafin
Hoja6.Cells(2, 1).Value = "'" & Barras(x - 2, 0)
Info(x - 2, 0) = Sheets("Configuración").Range("C2").Value
Info(x - 2, 1) = Sheets("HT").Range("A3").Value
Info(x - 2, 2) = Sheets("HT").Range("A4").Value
Info(x - 2, 3) = Sheets("Configuración").Range("C18").Value
Info(x - 2, 4) = Format(Sheets("Configuración").Range("B18").Value, "yyyy-mm-dd")



Les agradeceria mucho si me pudieran ayudar.


Saludos.
:??