error 13 en tiempo de ejecucion

[embetro1]

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

Cuando le doy depurar 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")


Si me pudieran ayudar seria fantastico.


Saludos.