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
_________________________________________________________________