Sub Copy()
Sheets(1).Range('E2:E' & Sheets(1).Range('E65536').End(xlUp).Row).SpecialCells(xlCellTypeConstants, 23).EntireRow.Copy
With Sheets(3)
.Range('A1:IV' & Sheets(1).Range('E2:E' & Sheets(1).Range('E65536').End(xlUp).Row).SpecialCells(xlCellTypeConstants, _
23).Count).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.Columns('D:D').Cut
.Columns('C:C').Insert Shift:=xlToRight
.Columns('F:F').Cut
.Columns('D:D').Insert Shift:=xlToRight
.Columns('G:G').Cut
.Columns('F:F').Insert Shift:=xlToRight
End With
End Sub