Copy paste from id to west column table data onto output sheet using vba

Sub globalsourcing()
Set ws1 = Sheets("output")
ws1.Cells.ClearContents
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ws1.Name Then
    Set r = ws1.Cells(Rows.Count, 1).End(3).Offset(2, 0)
    ID = ws.Rows(2).Find("ID", After:=ws.[K2]).Column
    ws.Range(ws.Cells(2, ID), ws.Cells.SpecialCells(11)).Copy r
    r.Offset(-1, 0).Value = ws.Name
End If
Next
End Sub