move row from one workbook to another

[alwings]

Hi,

I am new to VB and am trying to move one row of data and append it to the first nonblank row of another workbook. I have figured out how to append it to the first blank row in another sheet within the same workbook but I want to move it to another workbook. Any help would be great!
Here is the code that works for moving it to another sheet. It moves Row 4 from the sheet called Project List and copies it to the sheet called complete, putting it below the last row that is available. I want to move it to another workbook on another drive.

Anyway to move it to another workbook? I have attached the excel file but here is the Macro that works correctly:

Sub Completions2()
Sheets("Project List").Activate

    Range("A4").SpecialCells(xlCellTypeVisible).EntireRow.Copy
    Sheets("Complete").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
    MsgBox ("Data has been transferred successfully.")

End Sub