Copy row to the next blank row in another workbook

[IEyre]

Hi All,
In a bit of a bind, i have a simple excel user form which has a button that when clicked validates the data and then inserts this into a worksheet.
I have this part working fine.
However i now need this row of data to be inserted in the next blank row to a workbook located somewhere else on the network. I have come across the vba below but i am struggling with getting this function running after the validation.

Public Sub copy_wb()

Dim copy_from As Range
Dim copy_to As Range

Set copy_from = Workbooks("book1").Worksheets(1).UsedRange
Set copy_to = Workbooks("book2").Worksheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

copy_from.Copy Destination:=copy_to
Application.CutCopyMode = False

End Sub

Can anyone help me cheers in advance.

Kind regards

Me

[StephenR]

Please add code tags to your post as per forum rules.

[IEyre]

Apologies first time posting here.

Please see below

Please Login or Register  to view this content.

Let me know if you require anything else

[StephenR]

Thanks. You could have just edited your original post. So, what is the problem exactly?

[IEyre]

Sorry been staring at this all day.
2 points really
Will the above code work in copying the data from one location to another over a network as long as permissions etc align.
how do i add this so that once the validation runs it completes copy and paste.

So in short i am struggling to get the button to complete more that one task,

[StephenR]

Not sure what you mean. The workbooks will need to be open, or opened by code, but otherwise should be ok I think. You can add a button and then assign this macro to it, or you could add to an event such as worksheet change if it is to be triggered by a cell changing.