Sub MoveData_ColBOnwards()
Sheets("Data Import").Select
Columns("A:A").Select
Range("A7").Activate
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlToLeft
End Sub
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