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

Sayın @mozuer kodları Sayfanın kod bölümüne yapıştırdım çalıştıramadım.
Sayın @userx verdiğiniz kodlar çalıştı ihtiyaca cevap verdi. Emeğinize sağlık çok teşekkürler.

Kolay gelsin.