请问有办法将下列操作一步完成么
Excel提示行列转置粘贴无法适用于不连续范围.
Option Explicit
Sub copppy()
Dim rowsnum As Long
rowsnum = Selection.Row
Range("B5:W5, B" & rowsnum & ":W" & rowsnum).Select
Selection.Copy
Range("A15").Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub