How to change and copy data position by Autofilter

Hi alee001

See if this works for you

Option Explicit

Sub Macro1()
    Dim LR As Long
    Dim ws As Worksheet
    Dim x As Long
    Dim Rng As Range
    Dim cel As Range
    Dim OldE As Currency
    Dim OldD As Currency
    Dim OldC As Currency
    Dim NewE As Currency
    Dim NewD As Currency
    Dim NewC As Currency

    Set ws = Sheets("Data")
    With ws
        LR = .Cells.Find("*", .Cells(Rows.Count, .Columns.Count), SearchOrder:=xlByRows, _
                SearchDirection:=xlPrevious).Row
        ActiveSheet.Range("A1:J" & LR).AutoFilter Field:=8, Criteria1:= _
                "bar error"
        Set Rng = .Range("H2:H" & LR)
        x = Rng.Columns(8).SpecialCells(xlCellTypeVisible).Count
        If x >= 1 Then
            For Each cel In Rng.SpecialCells(xlCellTypeVisible)

                OldE = .Range("E" & cel.Row).Value
                OldC = .Range("C" & cel.Row).Value
                OldD = .Range("D" & cel.Row).Value
                NewE = OldC
                NewC = OldD
                NewD = OldE
                .Range("E" & cel.Row).Value = OldD
                .Range("C" & cel.Row).Value = OldE
                .Range("D" & cel.Row).Value = OldC
            Next cel
        End If
    End With
End Sub