Replace 'Range("A7:A41")' in your macro with
'Range("a7").resize(range("b2").value-6,1).Select'


"yshridhar" wrote:

Hello everybody. I need help to modify the macro below
Range("A7").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, ActiveCell.End(xlToRight)).Select
Selection.Clear
Range("A6").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range("A7:A41").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

In Range("A7:A41").Select; instead of A41 i want to change it A(value in
B2). The value in B2 changes. So i would like to erase the existing
formulae from A7: ,and copy the formulae.selection from A7:A(B2).
Any suggestions.
Thank you to all
With regards
Sridhar