Very new to VBA. I've recorded a macro to reference data on Sheet1 and pull it over to Sheet2 in a better, more organized format. Now, I need to somehow increment all those references down by 6 rows and continue until there is no more data present on Sheet1(or Row 4609). Can anyone help me put together something in VB to do this? Your help is greatly appreciated.
Here is the macro I recorded:
Sub format_data()
'
' format_data Macro
'
'
ActiveCell.FormulaR1C1 = "=Sheet1!RC"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[2]C"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[2]C[-2]"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!RC[-2]"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!RC[-2]"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!RC[-2]"
Range("G2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!RC[-1]"
Range("H2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!RC[-3]"
Range("I2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[2]C[-6]"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[2]C[-6]"
Range("K2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[2]C[-6]"
Range("L2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[2]C[-6]"
Range("M2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[2]C[-6]"
Range("N2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!RC[-6]"
Range("O2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[2]C[-7]"
Range("P2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[4]C[-8]"
Range("Q2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[4]C[-15]"
Range("R2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[4]C[-15]"
Range("S2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[4]C[-15]"
Range("T2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[4]C[-15]"
Range("U2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[4]C[-15]"
Range("V2").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[4]C[-15]"
Range("A3").Select
End Sub
Bookmarks