调整两列显示的顺序，excel的VBA怎么更改

Alex宝

论坛中各位大神，
有个问题请教。
以下是一个宏，怎么能够在运行宏后使A 列和B列互换，需要增加什么样的宏命令。谢谢！

（电脑原因 无法长传附件。）

Sub yy()
    With Sheets("MPS2")
        .Cells.ClearContents
        Sheets("MPS1").[a1].CurrentRegion.Copy .[a3]
        x = .Cells(Rows.Count, 1).End(xlUp).Row
        arr = .Range("a4:g" & x)
        brr = .Range("b4:g" & x)
        For i = x To 4 Step -1
            If WorksheetFunction.Sum(WorksheetFunction.Index(brr, i - 3)) <= 0 Then
            .Rows(i).Delete
            End If
        Next
    End With
End Sub

auqblfyv

Sub yy()
  With Sheets("MPS2")
  .Cells.ClearContents
  Sheets("MPS1").[a1].CurrentRegion.Copy .[a3]
  x = .Cells(Rows.Count, 1).End(xlUp).Row
  arr = .Range("a4:g" & x)
  brr = .Range("b4:g" & x)
  For i = x To 4 Step -1
    If WorksheetFunction.Sum(WorksheetFunction.Index(brr, i - 3)) <= 0 Then
    .Rows(i).Delete
    End If
  Next
'怎么能够在运行宏后使A 列和B列互换，需要增加什么样的宏命令。谢谢！
Columns("B:B").Cut
Columns("A:A").Insert Shift:=xlToRight
  End With
End Sub

Alex宝

非常非常感谢！