vba to clear cell contents if it's left aligned

[MeganDHarris]

I need assistance developing a macro that will clear cell contents based on it's text alignment. I have a column in my excel sheet that contains both project names aligned to the right and subtask names aligned to the left. I need the column to be separated into 2 columns - one with just the project names and and with just the subtask names. Is there some simple vba code that will copy the column then delete all the left aligned text out of the first column and all the right aligned text out of the second column? Any help will be greatly appreciated - thank you!!!

 

[alansidman]

This code assumes your data is in Column A and the left aligned will be placed in column B

Sub leftalign()
    Dim lr As Long, i As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To lr
        If Range("A" & i).HorizontalAlignment <> -4152 Then
            Range("A" & i).Cut Range("A" & i).Offset(0, 1)
        End If
    Next i


End Sub

 

[MeganDHarris]

Brilliant!! Thank you so much - you're a genius!!!