Hi Skip,
the routine suggested
Range([Q3], [Q3].End(xlToRight)).AutoFill Destination:=Range(Cells(rStart,"Q"),Cells(rEnd,"Q"))
does not work, stopping program for debugging
I try also with
Range([Q3], [Q3].End(xlToRight)).AutoFill Destination:=Range(Cells(rStart, 10), Cells(rEnd, 10))...