see below

"LiAD" wrote:

Hello again,

Another small simple question for someone that knows how.

How do i adapt this code in order to stop copying at row 109 maximum? So
its max copying range is 11 to 109 inclusive.

LastRow = Range("E" & Rows.Count).End(xlUp).Row
If LastRow109 then lastRow = 109

Range("P11:AC11").AutoFill Destination:=Range("P11:AC" & LastRow),
Type:=xlFillDefault

Thanks
LiAD