Hi,

I am trying to make this code run quicker but am not very familiar with VBA. Any help is much appreciated. Thank you.

Function midterm(wksName As String, row_Src As Long, column_Dst As String, srch_Term As String)
    Application.ScreenUpdating = False
    
    Worksheets(wksName).Activate
    Range(Cells(row_Src, 1), Cells(row_Src, 10)).Select
    Selection.Copy
    
    Worksheets("midterm").Activate
    Cells(2, 1).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
End Function
The code is taking a range from one worksheet and moving that range to another location but when I run this code over several thousand lines it takes forever. Is there any way to make it quicker? Thank you again for your help.