Hi,

Am Mon, 9 Mar 2020 01:44:08 -0700 (PDT) schrieb :


try:

Set ws = Sheets("Sheet1")

With ws
LRow = .Cells(1, "E").CurrentRegion.Rows.Count
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