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:
It's not working at all sadly. I have no idea where to go from here
VBA Code:
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