VBA Select Range and Move based on conditions

[Giggs1991]

Hi All,

I am looking for some help on VBA to Select Range and Move based on conditions.

I would like to move all the contents between "Project A" and "Project B" one column to the right. Same with all contents between Project B and end of table which will also move 1 column to the right.

This is how the table looks now:

Column A Column B Column C
Project A
1/1/2019 Jack 5
2/1/2019 Ryan 8
7/1/2019 James 10
Project B
1/1/2019 Jack 5
2/1/2019 Ryan 8
7/1/2019 James 10

 

[lrobbo314]

Try this. Assumes code begins in A1.

Sub MOVEIT()
With Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Offset(, 1)
    .FormulaR1C1 = "=IF(ISERROR(FIND(""Project"",RC[-1])),RC[-1],"""")"
    .Value = .Value
    .SpecialCells(xlCellTypeConstants).Offset(, -1).ClearContents
End With
End Sub

 

[Fluff]

Another option

Sub Giggs1991()
    Range("A:A").SpecialCells(xlConstants, xlNumbers).Insert xlToRight
End Sub

 

[Giggs1991]

excellect!

 

[Fluff]

Glad we could help & thanks for the feedback