Can anyone help on adding to a macro

[ghrek]

Hi

I have this macro as shown below but trying to add to it.

Is there anyway that I can move the data as per macro but also move the data in the column next to it too if there are specific words.

If the data has the word "PAYMENT VALUE" or "FARE" I need the data from the cell that contains that word moved over and also the cell next to it. Say A14 has the word PAYMENT VALUE I need that moved to column BD but then B14 moved to Column BE too.

Option Explicit

Sub Macro399
    Dim c As Range, rng As Range
    Dim lr As Long, r As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    Set rng = Range("A1:BB" & lr)
    Application.ScreenUpdating = False
    For Each c In rng
        If UCase(c) = "SALE NUMBER (SDCI+)" Then
            r = c.Row
            c.Cut Range("BD" & r)
        End If
    Next c
    Application.ScreenUpdating = True
    Application.CutCopyMode = False

End Sub

 

[MARK858]

Maybe (untested)...

Sub Macro399()
    Dim c As Range, rng As Range
    Dim lr As Long, r As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    
    Set rng = Range("A1:BB" & lr)
    Application.ScreenUpdating = False
    
    For Each c In rng
        If UCase(c) = "SALE NUMBER (SDCI+)" Then
            r = c.Row
            c.Cut Range("BD" & r)
        End If
        If UCase(c) = "PAYMENT VALUE" Or UCase(c) = "FARE" Then
            r = c.Row
            c.Resize(, 2).Cut Range("BD" & r)
        End If
    Next c
    
    Application.ScreenUpdating = True
    Application.CutCopyMode = False

End Sub

 

[ghrek]

Sorted. Many Thanks