Improve Efficiency of VBA Code

[jonsonbero]

Thank you everyone for your support
I am attaching the new file Please have a look at the example in "main workbook" to see what I mean.

Sub test()
    Dim ws As Worksheet, rng As Range, cl As Range, lr As Long, c As Long
    Const fRow As Long = 6
    Const sRow As Long = 8
    
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("main workbook")
        lr = ws.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Set rng = ws.Rows(fRow).SpecialCells(xlCellTypeFormulas)
        
        For Each cl In rng
            c = cl.Column
            ws.Cells(fRow, c).Copy: ws.Cells(sRow, c).PasteSpecial Paste:=xlPasteFormulas
            
            With ws.Range(ws.Cells(sRow, c), ws.Cells(lr, c))
                .Formula = ws.Cells(sRow, c).Formula
               .Value = .Value
            End With
        Next cl
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Any help would be greatly appreciated!!! - thanks in advance...