Copy Column over, delete original column using Excel VBA - excel

Question

I've been working on simplifying a script, I wanted to create a script that would copy within a range of columns over to the furthest left unoccupied column. Then delete the original column.
I've tweaked this script I found to do mostly what I wanted, it copies everything over, but doesn't delete.
I also need it to make it so that it can choose which row in said column range to look at for reference.
Could someone take a look at the script and help finish what I've started? I've been learning Excel VBA slowly, and my work has caused me to jump ahead in multiple directions before I have been ready, so I know that the copy and delete options should be simple, but because of the my line of work, I haven't had the time to learn everything correctly, so sorry if this is a simple answer, but I need to keep this script as lean as possible, and this is what I've come up with so far with what I know and scoured the internet for code and help.
Option Explicit
Sub MoveColumns()
Dim cel As Range
With ActiveSheet
For Each cel In Intersect(.UsedRange, .[B:N]).SpecialCells(xlCellTypeBlanks).Cells
cel = cel.Offset(0, 1)
Next
End With
End Sub
Thanks in advance.

Answer 1

don't mind the data under the main, I have a script that will get rid of it, so when this script runs it will run with nothing under it. In the case I want to move Copy G:G to F:F, then Delete G:G, move H:H to G:G, delete H:H, and continue till all the columns are side by side, with no space inbetween and no duplicates anywhere else.
What you want is complicated way of moving things. The easiest way is to delete the blank column. The rest of the columns will automatically move to the left :) I am assuming that there is no data after row 194.
Try this
Option Explicit
Sub MoveColumns()
Dim ws As Worksheet
Dim lastCol As Long, i As Long
Dim DelRange As Range
Set ws = Sheets("BackOrder")
With ws
lastCol = .Cells.Find(What:="*", _
After:=.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Column
For i = 1 To lastCol
If Application.WorksheetFunction.CountA(.Columns(i)) = 0 Then
If DelRange Is Nothing Then
Set DelRange = .Columns(i)
Else
Set DelRange = Union(DelRange, .Columns(i))
End If
End If
Next
If Not DelRange Is Nothing Then DelRange.Delete
End With
End Sub
HTH