You should use a For Each ws In ThisWorkbook.Worksheets loop, skip the report sheet, and call your existing logic inside it.

For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> ActiveSheet.Name Then Call LoadDataFor(ws)
Next ws