hi

the following code works for me:

var1 = 6 + Range("E2").Value
Range("A6:E6").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("A6:E41"), Type:=xlFillDefault

except; I do'nt want to fill range A6 to E41 but I want to fill range A6 to E(var1) or in other words; fill range A6 to E( 6+ value in field E2)

hope you can help

thanks in advance

henkie