Macro runs Slowly

refrain from 'activate'

Did you consider to use:

Sub tst()
  With Sheet41.Cells(Rows.Count, 1).End(xlUp).Offset(-1).Resize(, UsedRange.Columns.Count)
    .AutoFill .Resize(200)
  End With
End Sub