Macro to copy data to another worksheet?

[Yiaah22]

I'm trying to make (multiple) buttons that copy adjacent info to a list on another sheet, do some simple maths, and then increment the row (starting from row 17, if it's blank). At the moment I'm stuck like this:

Sub Part1()

Dim Row As Integer
Row = 17

If Worksheets("Worksheet1").Cells(Row, 3) < 0 Then
    Sheets("Worksheet1").Select
    Range("B" & Row).Select
    ActiveCell.FormulaR1C1 = "='Worksheet2'!R4C9"
    Range("C" & Row).Select
    ActiveCell.FormulaR1C1 = "='Worksheet2'!R4C2"
    Range("D" & Row).Select
    ActiveCell.FormulaR1C1 = "=('Worksheet2'!R4C6)*B" & Row
    Range("E" & Row).Select
    ActiveCell.FormulaR1C1 = "=('Worksheet2'!R4C7)*B" & Row

Else
Row = Row + 1


End Sub

It's not working at all sadly. I have no idea where to go from here

 

[mumps]

It would be easier to help if you could use the XL2BB add-in (icon in the menu) to attach screenshots (not pictures) of your two sheets. Alternately, you could upload a copy of your file to a free site such as www.box.com or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary).