Pasting Entire Row in New Workbook

[laku0006]

Hello Am trying to create a macro which will paste entire row if column F is populated with "Pending Research" and "Research Complete" I have a macro which works in same workbook. But am trying to do it in a way that it pastes in newworkbook which am naming as "Master". Below is code which works for same workbook.

Private Sub WorkSheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 6 Then Exit Sub
If Target = "Pending Research" Or Target = "Complete Research" Then
Sheets("Master").Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(, 6) = Target.Offset(, -5).Resize(, 9).Value
End If
End Sub

Please help.

Thanks
Lav... <!-- / message -->

 

[Norie]

Is the other workbook open?

If it is all you should need to do is add a reference to it.

Set wbDst = Workbooks("NameOfOtherWorkbook.xls") ' change name/extension as required
....
wbDst.Sheets("Master").Cells(Rows.Count, "A").End(xlUp).Offset(1).Resize(, 6) = Target.Offset(, -5).Resize(, 9).Value