autofill a range

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

Hello Henkie,

Like the way you think. I often use this method. It quite easy to do and very flexible.
_________________________________________________________________

Change your code to this:

var1 =Ltrim(Str( 6 + Range("E2").Value))
Range("A6:E"&var1).Select

Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("A6:E"&var1), Type:=xlFillDefault
_________________________________________________________________

Thanks,

works great except for one thing;

The first range should be just A6 to E6 and NOT A6 to E + var1


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

Thanks for your help

henkie