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.

Thanks, ill try it and let you know...
Tried it but it does not work, it gives an error on the transpose part, strange because in standalone it works!! I did swap transpose 1 line down because it had to open the workbook first.

Thanks snb, clean code to do just what i want. Got an error.
It seems to open the files 1 by 1 but then i receive an error. Only last workbook in directory got changed. Than i received a out of reach error on this line "with workbooks.open(.foundfiles(j))"

Ill reply tomorrow cause i have a meeting.

so! is it forbidden to ask for help on different forums?.
neither solution given solve my problem at present but i like the way i learn from you guy's.
Oh, next time i mention that i seek help on the different forums.

bingo, solution given works perfect except for a little error at the end of the cycle. All workbooks reflect the transpose and copy just as i wanted. Thank you very much snb.

I failed to read the rules thats true, yet i did learn from your samples so it was sure not waisting time from your part. next time i mention posting a question on diff; boards/forums.

dversa,
Please don't quote entire posts every time you reply to them - it serves no purpose, unless the post is not the one immediately above your reply, or if you wish to address a particular part of that post. Use the Reply button instead.