Print outer HTML Containing table

Question

I am Trying this but its bringing wrong data pls help.

Public Sub Test_H1()
Dim sResponse As String, html As HTMLDocument, clipboard As Object, ws As Workshee