Combine 2 functions into 1 macro (VBA)

I have a macro that does exactly what I need to do namely transpose some data from one sheet and copy it to an other sheet within the workbook.

Sub Transpose()
    Sheets("Inhoudelijke_Metadata").Select
    		Range("A2:B5").Select
    			Application.CutCopyMode = False
    			Selection.Copy
   		 	Sheets("Technische_Metadata").Select
   	 	Range("K3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

I have a macro that loops true several excel files in one directory (open/close) them to perform an action. That code does exactly that namely open en close every workbook in that directoy.

Sub RunCodeOnAllXLSFiles()
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook


Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

On Error Resume Next
    Set wbCodeBook = ThisWorkbook
        With Application.FileSearch
            .NewSearch
            'Change path to suit
            .LookIn = "C:\MyDocuments\TestResults"
            .FileType = msoFileTypeExcelWorkbooks
            'Optional filter with wildcard
            '.Filename = "Book*.xls"
                If .Execute > 0 Then 'Workbooks in folder
                    For lCount = 1 To .FoundFiles.Count 'Loop through all
                        'Open Workbook x and Set a Workbook variable to it
                        Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), UpdateLinks:=0)
                        
                        'DO YOUR CODE HERE

                        wbResults.Close SaveChanges:=False
                    Next lCount
                End If
        End With
On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub

My question is following;
How to consolidate the two functions into one macro.

Thanks for helping me.