VBA: fetch data from cells and concatenate matching data heading in another sheet

[jadgon]

I am getting error
Set tblRng = Sheet2.Range("A1:G1").Find(Trim(var(x))).Offset(1, 0)

when I ran the code in original data where instead of a, b etc. there appears lines like Apple85c(d), Sky900001c(d) respectively. In column A of "data" sheet there are also numbers, special characters.