Macro to Move all data in Cols B:G in same Row as in Col A

[howard]

I would like a macro to move all data from Col B:G into same row as in Col A (those rows in Col A are blank where there is data in Cols B:G)


Your assistance is most appreciated

 

[howard]

Hi Joe

I recorded a macro to move the data into Col A per your suggestion

the code works perfectly, but would like this amended so that Range("A7").Activate is amended to be the first blank cell in Col A selected

 Sub MoveData_ColBOnwards()
Sheets("Data Import").Select
 Columns("A:A").Select
    Range("A7").Activate
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlToLeft
End Sub

 

[Joe4]

You can do it like this:

Sub MoveData_ColBOnwards()

    Dim rng1 As Range
    Dim rng2 As Range

'   Find blanks in column A
    Sheets("Data Import").Select
    Set rng1 = Columns("A:A").SpecialCells(xlCellTypeBlanks)
    
'   Remove first 6 rows
    Set rng2 = Intersect(rng1, Range("A7:A" & Rows.Count))
    
'   Delete blanks
    rng2.Delete Shift:=xlToLeft
    
End Sub

 

[howard]

Many Thanks Joe

 

[Joe4]

You are welcome.

So does that work for you?

 

[howard]

Thanks, It works 100%