Find specific Data copy and paste into Cell Macro VBA

Hello.

here is the thing:

I would like to this code do sth like:
1. Ask me for a website address
2. After it gets it, search for HTML codes Like:
- title
- kat
-etc...

copy the content of title and paste it into the Cell ("X1)
the same with the rest of data.

Please, try to remake this code to do what I expect it to.

For now it can not find the content of scribes.

Private Sub blahblah_Click()
Dim ie As Object
Dim WB As Workbook
Dim WS As Worksheet
Set WB = Workbooks("FInalVersion_06_03_14_03_55_Duzo makr_2_chrome_2")
Set WS = WB.Sheets("Arkusz4")
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "http://www.wp.pl"
    Do While ie.Busy
Application.wait DateAdd("s", 1, Now)
    Loop
y = ie.Document.getelementbyid("content").innerHTML
WS.Range("A1").Value = y
End Sub