Range("E4:f4").Select
Selection.AutoFill Destination:=Range("E5:f" & Range("C65535").End(xlUp).Row), Type:=xlFillDefault
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False