Try this :-
Dim sh As Worksheet, rng As Range
Set sh = ThisWorkbook.Sheets("Sheet1")
With sh
If .Range("E3") = "" Then
Set rng = .Range("E2")
Else
Set rng = .Range(.Range("E2"), .Range("E2").End(xlDown))
End If
End With
With rng
.Offset(0, -3).Value = .Value
.Offset(0, -2).Resize(, 2).ClearContents
End With