Range("A3").Select
Selection.End(xlDown).Select
Row = ActiveCell.Row

Range("M4:W4").Select
Selection.AutoFill Destination:=Range("m4:E" & Row)
Range("m4:E" & Row).Select

The auto fill line doesn't work any thoughts are appreciated. thanks