Formulas into VBA

[menor59]

Hello all,

Starting in Column A5:A300 I have a formula


=INDEX($1:$1,(ROWS(A$1:A1)-1)*6+5)


in Column B5:B300 I have a formula


=INDEX($2:$2,(ROWS(B$2:B2)-1)*6+5)


in Column C5:C300 i have a formula


=INDEX($2:$2,(ROWS(A$1:A1)-1)*6+9)


How would i VBA this please and integrate this code Before it?



Sub CreateNewSheet()
Cells.Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Call DeleteRows
End Sub
Sub DeleteRows()
Rows("2:29").Select
ActiveWindow.SmallScroll Down:=9
Range("2:29,31:72").Select
Range("A31").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
ActiveWindow.SmallScroll Down:=-36
Range("A1").Select
Range("C2").Select
Selection.ClearContents
End Sub

[Bob Phillips]

Can you explain what you mean by ... How would i VBA this please and integrate this code Before it? I just don't understand that sentence.