Macro not deleting rows

Hi All,

I'm trying to use a macro to transpose blocks of data, then delete the data that was transposed. I've created a macro, but it isn't deleting the rows -- the final step of the macro.

Below is an example of what it looks like.

A1 A1 A2 A3 A4 A5 A6 A7
A2
A3
A4
A5
A6
A7

B1
B2
B3
B4
B5
B6
B7


I would like it to delete the column of As once they've been transposed, which would shift the Bs one row underneath the newly transposed As. The macro, however, is just leaving the column of A's intact, or it's pasting in a specific cell.

here's the macro:
Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+Shift+M
'
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("B79").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A79").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub

I'm assuming the error has to do with the exact cell references. How do I prevent this?

Please use code tags with your code as per forum's rule.
Difficult to see the layout of the data. Please attach an excel sample book.

Please used code tags when posting.

Maybe:

Sub acsherman()
With Range(Selection, Selection.End(xlDown))
    .Copy
    Range("B79").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
    .Delete Shift:=xlUp
End With
End Sub