The value of L1 is the row number. I am copying info from vertical to a new
sheet that is horizontal like a database list. This macro is not working an
I need help. Thanks in advance.

ActiveCell.FormulaR1C1 = "=Sheet1!R[-1]C[1]"
Range("B(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!RC"
Range("C(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[3]C[-1]"
Range("D(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[4]C[-2]"
Range("E(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[5]C[-3]"
Range("F(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[6]C[-4]"
Range("G(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[7]C[-5]"
Range("H(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[8]C[-6]"
Range("I(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[9]C[-7]"
Range("J(l1)").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[10]C[-8]"
Range("A3").Select