Hola
Normalmente el error 13 se da cuando no coinciden los tipos de datos, es decir, por ejemplo, al intentar asignar un valor de texto a una variable integer. Un ejemplo sencillo:
Código:
Dim i As Integer
i = Text1.Text
En este caso si el text1 contiene una cadena de texto nos dará error 13.
En tu caso, comprueba que "Info(x - 2, 1)" y "Sheets("HT").Range("A3").Value" contengan el mismo tipo de datos o las celdas estén configuradas con el mismo tipo de datos, es decir, que las dos sean de tipo numérico o las dos de tipo fecha, ...
--Saludos--