[Xin một đoạn code đơn giản] Di chuyển các ô được tô vàng và ô liền kề bên phải

[nghiank09]

Chào mọi người, Mình có một bảng như hình. Rất mong mọi người giúp mình một đoạn code để di chuyển ô màu vàng và ô liền kề bên phải về vị trí của cột F và G (cùng dòng).
Thao tác này tương tự như Cut ô màu vàng và ô liền kề bên phải, di chuyển đến ô cùng dòng ở cột F và Insert Cut Cells vậy ạ.
Cám ơn mọi người.



Chúc mọi người sức khỏe.

 

[SA_DQ]

Sub DoiOCoMauLenPruoc()
 Dim J As Long, Col As Integer, Rws As Long, W As Integer, Tmp As Long

 Rws = [F2].CurrentRegion.Rows.Count
 Col = [F2].CurrentRegion.Columns.Count
 Application.ScreenUpdating = False
 For J = 2 To Rws
    For W = 6 To Col
        If Cells(J, W).Interior.ColorIndex > 2 Then
            Tmp = Cells(J, W).Value
            Range(Cells(J, 6), Cells(J, W - 1)).Copy Destination:=Cells(J, 7)
            Cells(J, 6).Value = Tmp:            Cells(J, 6).Interior.ColorIndex = 38
        End If
    Next W
 Next J
 Application.ScreenUpdating = True
End Sub

Chúc mọi người vui vẻ!

 

[nghiank09]

Cám ơn bạn @SA_DQ nhiều lắm