Input data to another workbook.

[wrightyrx7]

Hello all,

I have a macro that copies data from the Active Row onto another Worksheet. Which looks like this

Sub Test()
Sheets("Advance Payment").Cells(8, 1) = Cells(ActiveCell.Row, 6) & " " & Cells(ActiveCell.Row, 7)
Worksheets("Advance Payment").Cells(6, 2).Value = Cells(ActiveCell.Row, 1).Value
Worksheets("Advance Payment").Cells(2, 5).Value = Cells(ActiveCell.Row, 3).Value
Worksheets("Advance Payment").Cells(5, 5).Value = Cells(ActiveCell.Row, 4).Value
Worksheets("Advance Payment").Cells(15, 4).Value = Cells(ActiveCell.Row, 10).Value
Worksheets("Advance Payment").Cells(17, 5).Value = Cells(ActiveCell.Row, 11).Value
Worksheets("Advance Payment").Cells(18, 5).Value = Cells(ActiveCell.Row, 11).Value
Worksheets("Advance Payment").Cells(12, 4).Value = Cells(ActiveCell.Row, 12).Value
Worksheets("Advance Payment").Cells(1, 5).Value = Cells(ActiveCell.Row, 8).Value
Sheets("Advance Payment").Activate

End Sub

Is there anyway I can get this to open a closed workbook and input the data. The worksheet will be named the same and the cells will be the same.

Please ask if you need anymore information

Thanks