노래검색사이트에서 노래 제목과 가수명을 크롤링하고 싶습니다.

노래검색 사이트에서 노래 제목과 곡번호, 가수명을 크롤링하고 싶습니다.

예전에 만들었던 파일인데 어떻게 잃어버리고 다시 만들려니 도무지 생각이 안나네요

Sub kumyoung()

Dim Http As New MSXML2.ServerXMLHTTP60
Dim Html As New MSHTML.HTMLDocument
Dim URL As String
Dim drwNo As String
Dim sng As String

If Range("B2") = 0 Then Exit Sub '갯수 설정
Range("C4").CurrentRegion.Offset(1, 4).ClearContents '화면 초기화

For i = 4 To Range("B2") + 3
If Range("B" & i) = "" Then Exit Sub '빈칸이면 실행 종료

URL = "https://www.tjmedia.com/tjsong/song_search_list.asp?strType=16&strCond=1&strText=" & Range("B" & i)
sng = ""

With Http
.Open "GET", URL, False
.send
Html.body.innerHTML = .responseText
End With

On Error Resume Next

sng = Html.getElementsByClassName("youtube_auto_search").innerText
If sng <> "" Then
Cells(i, 5).Value = "'000000"
Cells(i, 6).Value = "---"
Cells(i, 7).Value = "등록된 노래가 없습니다"
End If

For Each iArticle In htmlresult.getElementsByClassName("youtube_auto_search")
Cells(i, 8) = iArticle.getAttribute("data-singer")
Cells(i, 5).Value = "'000000"
Cells(i, 6).Value = Html.getAttribute("data-singer")(1).innerText
Cells(i, 7).Value = Html.getAttribute("data-title")(0).innerText

Next

Next i

End Sub

getElementsByClassName 과 getAttribute 문제인 듯 한데 도무지 해결이 안되네요...도와주세요

파일 첨부합니다.

고수님들 도와 주세요...