I have the following code working:
Range("A4:BQ50").Copy
Range("A51").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Rows("4:50").Delete Shift:=xlUp
I was trying to reduce it to the following single line:
Range("A4:BQ50").Copy...