I am currently using the following macro to copy a selected range and
paste special (transpose) it to another area on the worksheet:

Application.CutCopyMode = False
Selection.Copy
Range("G1").Select
Do While ActiveCell.Value < ""
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
End Sub

I would like to modify this so that the range that I copied is then
deleted (cells shift up) after being pasted to the other are so that I
may continue to execute this macro on another range of data. Can
anyone help me build out this final piece?