Bu kodu da deneyebilirsiniz.

Sub kopyala()

Range("E4:R4").Select: Selection.Copy

Range("E" & Range("E" & Rows.Count).End(xlUp).Row + 1).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("E4").Select

Application.CutCopyMode = False

End Sub