Копирование текущий строки в последнюю строку другого Excel файла - VBA

Формулировка задачи:

Добрый день, уважаемые коллеги! Прошу помощи, искал на форуме - ответы которые нашел не помогли, в стандартной документации запутался, не получается скопировать из книги в книгу следующим образом:

Имеется:

Есть основная книга, в которой есть пользовательская форма. Есть несколько папок с файлами Excel общего доступа (для того, что бы не было конфликта если файл открыт другим пользователем и надо в него записать)

Проблема:

Не могу запрограммировать кнопку, которая копирует текущую строку с которой работает пользователь в основной книге, в последнюю строку необходимой книги. Необходимая книга выбирается по названию страны из колонки 6 основной книги. Думаю проще взглянуть на пример, будет более понятно Пример в приложении. Заранее благодарю!

Решение задачи: «Копирование текущий строки в последнюю строку другого Excel файла»

textual
                            Листинг программы 
                        

                            Sub tt()
    Dim path$, WB As Workbook, WS As Worksheet, Dir$, LRow As Long, CurrRow As Long
    path = ActiveWorkbook.path
    CurrRow = ActiveCell.Row
    Dir = Cells(CurrRow, "F")
    If Dir = "" Then Exit Sub
    path = path & "" & Dir & "\АЭ.xlsx"
    Set WS = ActiveSheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Set WB = Workbooks.Open(path)
    If Err Then
        MsgBox "Файл " & path & " не обнаружен или используется"
        Exit Sub
    End If
    With WS
        LRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
        .Range("A" & CurrRow & ":F" & CurrRow).Copy Destination:=Range("A" & LRow & ":F" & LRow)
    End With
    ActiveWorkbook.Close True
    Application.ScreenUpdating = True
End Sub
                        