Sub DupFil()
Dim Cel As Range
With ActiveSheet
.Rows(Selection.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Set Cel = .Cells(Selection.Row, 1).End(xlToRight)
If Cel.Column < .Columns.Count _
Then Cel.AutoFill Destination:=Cel.Resize(2), Type:=xlFillDefault
End With
End Sub