Модуль внутри модуля в Excel VBA

Question

Прежде всего, я новичок в VBA, поэтому спасибо за вашу помощь:)

Я пытаюсь создать макрос, я создал диаграмму для мышления модуль за модулем и мягко интегрироватьно не повезло.

вот диаграмма, которую я сделал;

Модули есть;

• Открыть FileDialog

Sub Sirayla_dosya_ac()
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xls*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)

• Вставить столбцы

            'Insert columns
            Range("B1").EntireColumn.Insert
            Range("H1").EntireColumn.Insert
            Range("N1").EntireColumn.Insert
            Range("AA1").EntireColumn.Insert

• vlookup values ​​

Dim result As Variant

Range("A3:A3").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
'result = Application.vlookup(A3, "FILE LOCATION\[FILE.xslx]Sheet1'!$A1:$B6314", 2, False)
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
Selection.AutoFill Destination:=Range(Selection, Selection.End(xlUp))

Но не удалось создать формулу vlookup.и я не смог сделать «скопировать строки с группировкой в ​​динамической области», «после копирования строки формата, которая включает в себя« текст »с указанным шрифтом, цветом или цветом bg.

Спасибо за ваши ответы.