Compile Code error: Method or data member not found

Hello everyone,

What I am trying to do sounds simple but I don't know where I'm wrong in the code.
The process I want is: A person enters a number and clicks a button in sheet1, excel will search for a matching number in sheet2. When the number is found the information relating to that number is inserted into sheet1.
I hope that is kinda clear.
I had watched a youtube video to help with the code but even though I used the same code it wouldn't work for me. I think this is because I am using Excel 2010 and the video possibly had a different version.
I have attached my practice sheet which has the error.

I have tried to change a few things but still haven't got it to work. It only seems to be this line it is stuck on

If Sheets("New Material").Cells(x, 1) = Information.Range("B2") Then

Help is very much appreciated.

Test code.xlsm

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title go to your first post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

You don't have a sheet whose codename is Information (the tab name and the codename are not the same) so you have to refer to it using Sheets("Information"):

Sub searchdata()
    Dim lastrow                     As Long
    Dim count                       As Integer

    lastrow = Sheets("New Material").Cells(Rows.count, 1).End(xlUp).Row
    count = 0

    For x = 2 To lastrow

        If Sheets("New Material").Cells(x, 1).Value = Sheets("Information").Range("B2").Value Then
            Sheets("Information").Range("A8").Value = Sheets("New Material").Cells(x, 1).Value
            Sheets("Information").Range("B8").Value = Sheets("New Material").Cells(x, 3).Value
            Sheets("Information").Range("C8").Value = Sheets("New Material").Cells(x, 4).Value
            count = count + 1


        End If
    Next x
    If count = 0 Then
        Sheets("Information").Range("A8:C8").ClearContents
    End If
End Sub

Notes:
1. I assumed that Info was supposed to also be Sheets("Information")
2. You should always specify the .Value property rather than leaving it implicit.
3. You were missing a Next statement which I have added
4. I removed the Goto x statements as they made no sense.