Hi,

Am Sun, 8 Mar 2020 20:57:14 -0700 (PDT) schrieb :

same function edit vba excel

try:

Dim ws As Worksheet
Dim i As Long
Dim LRow As Long

'~~ Change this to the relevant sheet
Set ws = Sheets("Sheet1")

With ws
LRow = .Cells(.Rows.Count, "E").End(xlUp).Row
For i = 1 To LRow
.Cells(i, "A").Resize(, 3).Value = _
.Cells(i, "E").Resize(, 3).Value
Next i
End With


Regards
Claus B.
--
Windows10
Office 2016