Automation Error -2147417848 The object invoked has disconnected from its clients

Hi, this code was doing its job fine over the past 2 days. I didn't change anything. Now all of the sudden I keep getting this error. I've tried to find a solution to people with similar problem but it hasn't been successful....Please help!

Sub Match_And_Rearrange_Columns()
    
    Dim counter As Long, Found As Range, Cell As Range
    Dim ws1 As Worksheet, ws2 As Worksheet
    
    Set ws1 = Sheets("Main")        'Match column headers on this sheet
    Set ws2 = Sheets("New Data")    'Rearrange columns on this sheet
    
    Application.ScreenUpdating = False
    
    counter = 1
    Application.CutCopyMode = False
    Application.FindFormat.Font.FontStyle = "Bold" 'match the format
    
    For Each Cell In ws1.Range("A1", ws1.Cells(1, Columns.Count).End(xlToLeft))
    
        Set Found = ws2.Rows(1).Find(What:=Cell.Value, _
                                     LookIn:=xlValues, _
                                     LookAt:=xlWhole, _
                                     MatchCase:=True, _
                                     SearchFormat:=True)
        If Not Found Is Nothing Then
            If Found.column <> counter Then
                Found.EntireColumn.Cut
                ws2.Columns(counter).Insert Shift:=xlToRight             '<----automation error!!!
                Application.CutCopyMode = False
            End If
        Else
            ws2.Columns(counter).Insert Shift:=xlToRight
            ws2.Columns(counter).ColumnWidth = Cell.ColumnWidth
            ws2.Cells(1, counter).Value = Cell.Value
        End If
        
        counter = counter + 1
    Next Cell
    
    Application.ScreenUpdating = True
    
End Sub

It's working fine for me

Is there any worksheet change event runs in the back ground?

I requested for all members help for this thread. So surely someone will fix the root cause of this error

Another approach:

Sub M_snb()
    sn=Sheets("New Data").usedrange
    st=Sheets("New Data").usedrange.rows(1).specialcells(2)
    sp=Sheets("Main").usedrange.rows(1).specialcells(2)

    for j=1 to ubound(sp,2)
      if iserror(application.match(sp(1,j),st,0)) then
         c01=c01 & "," & sp(1,j)
      else
        c00=c00 & "," & application.match(sp(1,j),st,0)
      end if
    next

    sheets("New Data").usedrange=application.index(sn,evaluate("row(1:"&ubound(sn) & ")") ,split(mid(c00,2),","))

    sr=split(mid(c01,2),",")
    sheets("New Data").cells(1,ubound(sn,2)+1).resize(,ubound(sr)+1)=sr
End Sub

As long as you do not declare them they are variants by default. In this case (arrays) they also have to. If you comment out 'Option Explicit' it runs smoothly.
The formatting is quite another story:

You could add:

For j=1 to Sheets("Main").usedrange.columns.count
   Sheets("New Data").usedrange.columns(j).interior.colorindex=Sheets("Main").usedrange.columns(j).interior.colorindex
Next

It may be better if you use .Color for .ColorIndex