Try this and see if
......the big guys out there..
notice!
Sub TidyPasta()
Cells.MergeCells = False
r = Cells(1, 1).End(xlDown).Row
c = Cells(r, Columns.Count).End(xlToLeft).Column + 6
For i = c To 3 Step -1
If Cells(Rows.Count, i).End(xlUp).Row = 1 Then
Columns(i).Delete
End If
Next
r = Cells(Rows.Count, 1).End(xlUp).Row
For i = r To 2 Step -1
Range("F" & i & ":G" & i).MergeCells = True
Range("A" & i & ":B" & i).MergeCells = True
Next
Columns("A:G").ColumnWidth = 12.75
End Sub
P.S.
Before running
Delete the instructions and result you need to obtain shown in your sample workbook.
Cheers
Bookmarks