Sub test()
    Dim rngUR As Range
    Dim rngBlank As Range
    Set rngUR = Intersect(ActiveWorkbook.ActiveSheet.UsedRange, ActiveWorkbook.ActiveSheet.Range("d:f"))
    Set rngBlank = rngUR.Find("")
    While Not rngBlank Is Nothing
        rngBlank.Value = rngBlank.Offset(-1, 0).Value
        Set rngBlank = rngUR.Find("", rngBlank)
    Wend
End Sub

Sub OpenDialod()
    Dim ipath$, fname$, book As Workbook
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then ipath = .SelectedItems(1) Else Exit Sub
    End With
    fname = Dir(ipath & "\*.xls*")
    Do While fname <> ""
        Set book = Workbooks.Open(ipath & Application.PathSeparator & fname)
        Call Общиймакрос
        book.Close True
        fname = Dir
    Loop
End Sub

Private Sub ComboBox1_Change()
       If Len(ComboBox1.Value)>0  Then   MsgBox Me.ComboBox1
End Sub

ComboBox1.Value = ""

On Error Resume Next

Private Sub CommandButton1_Click()
    ComboBox1.RowSource = ""
End Sub

Dim FSO As Object, ifile As Object
Dim lrow&
Set FSO = CreateObject("Scripting.FileSystemObject")
lrow = Range("aq" & Rows.Count).End(xlUp).Row + 1
For Each ifile In FSO.getFolder("C:\Users\......").Files
'        ....часть макроса с копированием строк
    Range("aq" & lrow).Value = ifile.Path      ' Записывает полный путь к файлу
    Range("aq" & lrow).Value = ifile.ShortName ' Записывает только имя файла
    lrow = lrow + 1
Next

public static void main(String[] args) {
        String txt = "test2";
        if (txt.equals("test")) {
            System.out.println("if");
        }else if(txt.equals("test1")){
            System.out.println("else if 1");
        }else if(txt.equals("test2")){
            System.out.println("else if 2");
        }
    }

LastRow = Range("A1000000").End(xlUp).Row

LastRow = Range("а" & Rows.count).End(xlUp).Row
 

Workbooks("книга куда выводим список")

ThisWorkbook